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PREFACE 
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major contributors to the MASH effort deserve mention. Ballistic 
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with much of its documentation) utilized in the MORSE component of MASH. 
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in-group energy biasing methodology incorporated in MORSE (along with 
much of its documentation) and the programming required to couple the 
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debugging, and code testing throughout the development phase of the MASH 
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contributions from the other investigators at BRL and SAIC into the MASH 
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acknowledge the principal sources of the contributions to that 
particular section. These references acknowledge the contributions of 
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efforts MASH would not exist. Here it is sufficient to state that the 
efforts of all those who aided this project through technical 
consultation, code programming and testing, review, manuscript 
preparation, and administrative support are gratefully acknowledged. 


J. 0. Johnson, editor 




ABSTRACT 


The Monte Carlo Adjoint Shielding Code System, MASH, calculates neutron 
and gamma-ray environments and radiation protection factors for armored 
military vehicles, structures, trenches, and other shielding 
configurations by coupling a forward discrete ordinates air-over-ground 
transport calcul tion with an adjoint Monte Carlo treatment of the 
shielding geometry. Efficiency and optimum use of computer time are 
emphasized. The code system includes the GRTUNCL and DORT codes for 
air-over-ground transport calculations, the MORSE code with the GIFTS 
combinatorial geometry package for adjoint shielding calculations, and 
several peripheral codes that perform the required data preparations, 
transformations, and coupling functions. MASH is the successor to the 
Vehicle Code System (VCS) initially developed at Oak Ridge National 
Laboratory (ORNL). 

The discrete ordinates calculation determines the fluence on a coupling 
surface surrounding the shielding geometry due to an external 
neutron/gamma-ray source. The Monte Carlo calculation determines the 
effectiveness of the fluence at that surface in causing a response in a 
detector within the shielding geometry, i.e., the "dose importance" of 
the coupling surface fluence. A coupling code folds the fluence 
together with the dose importance, giving the desired dose response. 

The coupling code can determine the dose response as a function of the 
shielding geometry orientation relative to the source, distance from the 
source, and energy response of the detector. 

This user's manual includes a short description of each code, the input 
required to execute the code along with some helpful input data notes, 
and a representative sample problem (input data and selected output 
edits) for each code. 






1.0 NASH: A MONTE CARLO ADJOINT SHIELDING CODE SYSTEM 


1.1 INTRODUCTION TO MASH 


1.1.1 Background 

An armored vehicle can provide important protection against the effects 
of a nuclear weapon. In the case of a tactical weapon, prompt radiation 
may be the dominant effect over a considerable area surrounding the 
detonation. The Vehicle Code System (VCS) was developed by Oak Ridge 
National Laboratory (ORNL) to facilitate the calculation of radiation 
protection factors for a given vehicle; i.e., the ratio by which the 
free-field radiation is reduced due to the presence of the vehicle. 1,2 
VCS was constructed by linking together a discrete-ordinates air-over¬ 
ground transport calculation and an adjoint Monte Carlo vehicle dose- 
importance calculation. A typical problem involving an armored vehicle 
is shown in Figure 1-1. While the title implies the code system was to 
be used only for vehicles, VCS could also be used for other shielded 
structures. A typical problem involving a shielded structure, such as a 
house, is shown in Figure 1-2. 

The typical VCS problem involves the detonation of a low-kiloton yield 
tactical nuclear weapon within a kilometer of the target (vehicle). The 
air-over-ground transport calculation determines the neutron and photon 
fluence as a function of energy on a coupling surface surrounding the 
target (vehicle). The dose-importance calculation determines the 
effectiveness of particles at the coupling surface in contributing to 
dose at a detector position within the target (vehicle). A coupling 
code folds the fluence together with the dose importance, giving the 
dose response. The coupling code can also rotate the vehicle, move it 
to different distances from the source, and perturb the energy response 
of the detector. 

VCS was initially developed as a four-code system including MORSE, DOT, 
DRC, and VISA. MORSE 3 is both a forward and an adjoint Monte Carlo 
transport code which can calculate the fluence in the complicated three- 
dimensional vehicle geometry. DOT 4 is a two-dimensional discrete 
ordinates radiation transport code which calculates the energy- and 
angle-dependent free-field initial radiation environment. DRC couples 
the adjoint fluences from MORSE with the free-field environments from 
DOT to calculate the radiation environments or protection factors at 
"detector" locations in the vehicle or structure. VISA is used to 
format the DOT angular fluence into a data file for use by DRC. 

VCS has been and still is regularly used at ORNL, the Ballistic Research 
Laboratory (BRL), Science Applications International Corporation (SAIC), 
Lawrence Livermore National Laboratory (LLNL), and Wehrwissenschaftliche 
Dienststelle der Bundeswehr fur ABC-Schutz (WWD), West Germany 5 for the 
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Figure 1-1. 


Typical VCS Problem Involving an Armored Vehicle. 
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Figure 1-2. Typical VCS Problem Involving an Enclosed Structure. 
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calculations of neutron and gamma-ray protection factors of military 
vehicles, structures, trenches, and other shield configurations. VCS 
represents a powerful tool for coupling complex geometry calculations 
into single free-field environments, and as such, has had applications 
to a great many shielding problems. Past and present applications 
include a wide variety of Army vehicles, house shielding at Hiroshima 
and Nagasaki, trench shielding factors at the Nevada Test Site, and in¬ 
missile radiation environments. 

Over the course of time, different versions of VCS were created due to 
the different installations tailoring the code to suit their particular 
purpose. At ORNL, the DOT III code was replaced with the DOT IV 6<7 
code, and VISA was replaced with VISTA. BRL, which has been a major 
user and source of funding for the VCS code, made a number of 
modifications to the MORSE and DRC parts of VCS in 1976-1977. The major 
change to MORSE was the replacement of the combinatorial geometry model, 
which SAIC had previously installed in MORSE, 8 with GIFT combinatorial 
geometry, which was similar to the MORSE combinatorial geometry but 
which had been further developed at BRL. 9 ' 11 After those modifications, 
BRL contracted SAIC to evaluate and document some aspects of the VCS. 
That effort concluded that “VCS is a sophisticated and well-planned code 
package capable of accurate, state-of-the-art radiation transport in 
complex, three-dimensional vehicles" and suggested a new "within-group" 
energy biasing scheme for adjoint MORSE. 12 In two subsequent efforts, 
one for the Wehrwissenschaftliche Dienststelle der Bundeswehr fur ABC- 
Schutz (WWD), West Germany, 13 and the other for BRL, 14 SAIC installed and 
tested the new in-group energy bias methodology in the adjoint MORSE 
part of VCS. The study for WWD demonstrated that this scheme could 
provide a factor of four increase in the efficiency of VCS for a 
shielding calculation with 10 cm of steel. 

The result of all this independent development of VCS was a 
proliferation of different versions of the code, of which most were not 
compatible. The Defense Nuclear Agency (DNA) expressed concern over the 
potential for disagreement between independent analyses of the same 
armored vehicle. Consequently, BRL, ORNL, and SAIC were tasked to 
identify the problems associated with the "current" version(s) of VCS, 
incorporate the various modifications (which would improve the VCS code) 
that have been added to the different versions, and create a singularly 
referenced version of VCS. In particular, the purpose of this project 
was to establish and verify a version of VCS which is generally 
acceptable to the user community, and to place this version of VCS under 
responsible custody on the Defense Nuclear Agency (DNA) computing 
network for use on the CRAY computer system at Los Alamos National 
Laboratory (LANL) under the CRAY Time Sharing System (CTSS). In this 
effort, SAIC was to take the lead in the selection of the geometry model 
and in the development and testing of the in-group energy biasing; ORNL 
was to develop a new reference cross section data set, modify DRC to 
couple MORSE and DOT calculations made with different energy group sets, 
and compile the new version of VCS. SAIC and ORNL were to share the 
task of checking out the new coding. 
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In years prior to this effort, three problems with VCS and the primary 
cross section library use in VCS analysis were identified, all of which 
have been addressed in this effort. These three problems included: 


1. The biasing treatment used in the MORSE adjoint calculation of 
VCS did not favorably sample the most important regions of 
energy space, especially for calculations involving steel and 
polyethylene. These two materials are potentially important 
shielding components of armored vehicles. Furthermore, 
theoretical analyses of the standard adjoint scattering 
treatment indicated inherent large variances for adjoint Monte 
Carlo analyses of thick media. 


2. The energy group structure of the 58 group (37 neutron groups, 
21 gamma groups) DLC 31 cross section library, 15 had 
suspected deficiencies for transport in steel and air, 
especially near 1 MeV and at epithermal energies. 


3. The more recent GIFT5 16 geometry routines used by BRL for 

constructing vehicle models have certain incompatibilities with 
the geometry routines in MORSE. Vehicle models developed by BRL 
for various analyses other than nuclear survivability/shielding 
effectiveness had to be revised, at a significant cost in man 
power and elapsed time, for VCS analyses. 


As a result of this effort, SAIC installed a "user community compatible" 
geometry package and in-group energy biasing into VCS by incorporating 
the GIFT5 geometry package and a revised in-group energy bias package 
into the BRL MIFT version of MORSE. After a significant checkout 
effort, this package was released to ORNL for further checkout and 
testing. SAIC called this version of MORSE "MIFT2", 17 indicating that 
it was an update of the BRL MIFT code. ORNL developed the new Defense 
Applications Broad-group Library (DABL69), 18 with 46 neutron energy 
groups and 23 gamma-ray groups, made several modifications to many of 
the code system modules, and incorporated the SAIC changes to the MORSE 
component into the new version of VCS called MASH (Monte Carlo Adjoint 
Shielding). This final version "MASH 1.0" has been compiled and tested 
and placed under responsible custody of DNA on the DNA computing network 
for use on the CRAY computer system at Los Alamos National Laboratory 
(LANL) under the CRAY Time Sharing System (CTSS). Future efforts will 
involve making a version of MASH 1.0 operational on an IBM RISC System 
6000 workstation. 
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1.1.2 Summary of Corrections and Improvements to VCS 

The VCS code was outdated in several respects as well as being deficient 
in others. Among the changes made to VCS to produce version 1.0 of the 
MASH code system are: 


1. The replacement of the MORSE module with the latest version 
of MORSE-CG. 


2. The incorporation of in-group energy biasing into the MORSE 
component of MASH. 


3. The replacement of the combinatorial geometry package in 
MORSE with the new GIFT5 geometry package. 


4. The modifications to DRC to couple MORSE and DORT calculations 
with different energy group structures, and read the new VISTA 
formatted records. 


5. The replacement of the DOT component with the newer DORT 19 
component. 


6. The replacement of VISA with the newer VISTA code. 


7. The replacement of the DLC-31 (37n-2l7) group coupled 
cross-section library with the new DABL69 (46n-237) group 
library as the reference cross-section data library. 


All components of MASH 1.0, except the GIFT5 input module to MORSE, use 
the FIDO free-form input data described in detail in Appendix A. The 
GIFT5 geometry input for the MORSE component currently is in fixed 
format, however, future efforts will convert this input over to the FIDO 
free-form method. 

Additional improvements to MASH 1.0 include programming upgrades to the 
MORSE and DRC modules. These two codes now have all arrays variably 
dimensioned, variable tape unit numbers, revised common and subroutine 
structures, a new leakage tape format, and orderly termination of cases. 
Several errors in choosing bins for the coupling surface and in 
determining detector number for the storage of results have been 
corrected. Because traceability or quality assurance is increasingly 
important, some changes were made to tape formats to provide more 
definitive information about the computer runs. 
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1.2 STRUCTURE OF HASH 1.0 


The general structure of the HASH code system is shown in Figure 1-3, 
while the data flow is detailed in Figure 1-4. The GIP code is used to 
create and mix the materials required to run the air-over-ground 
transport analysis. The compositions and source data for the air-over- 
ground transport calculation are input into both the GRTUNCL and DORT 
codes. In order to maintain particle balance and reduce ray effects, 
GRTUNCL calculates the uncollided fluence and first-collision source 
throughout the problem space. This information is input to DORT which 
calculates the resulting collided fluence, and merges the two results. 
All fluence information is passed to VISTA, where it is condensed and 
reordered for convenient processing. Only a few ground ranges from the 
radiation source are normally processed at this step. Additional ground 
ranges may be obtained by rerunning the VISTA code at a minimal cost. 

The complex three-dimensional target (vehicle) geometry description and 
material compositions are input to the MORSE code. MORSE records the 
required information for each adjoint track leaving the coupling surface 
on a leakage data set which is input to the Detector Response Code, DRC. 
DRC folds the adjoint leakage data together with the reformatted DORT 
fluence at the coupling surface, i.e., the VISTA code output fluence 
file, for the selected orientation, range, and detector response. It 
also provides edits of estimated variances of the results as requested 
by the user. The protection factor itself is obtained by dividing the 
free-field dose, available from DORT, by the dose response at the 
detector position within the target (vehicle) given by DRC. 

Special advantage is taken of the fact that the target (vehicle) is 
small compared to the separation distance between the source (weapon) 
and target (vehicle). This means that the fluence in a given direction 
and at a given elevation and energy is essentially independent of the 
azimuthal variable about the target (vehicle). This reduces the volume 
of data processed by DRC, minimizes the cost of both VISTA and DRC, and 
simplifies the construction of both codes. [Note: This assumption could 
lead to error for some large structures such as house clusters, large 
buildings, etc., where the distance from the detector location to the 
coupling surface is significant relative to the gradient in the external 
fluence field.] 

Most of the cost of MASH is incurred in the DORT and MORSE codes. 
Therefore, it is advantageous to save the VISTA output for use with many 
MORSE runs. Likewise, it is practical to use a single MORSE leakage 
tape for a target (vehicle) to examine a number of target orientations, 
source ranges and types, and detector response functions. 
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Figure 1-3. General Structure of the MASH Code System. 
























Figure 1-4. Data Flow Diagram of the MASH Code System. 








1.3 STRUCTURE OF HASH USER'S MANUAL 


1.3.1 The Main Text 

The remainder of the main text of this manual (Sections 2.0 through 7.0) 
gives a detailed description of each of the codes in MASH. Included in 
each section is a brief description of the code and its theory (if 
applicable), the input requirements, detailed input data notes, the 
input and output file formats, the logical unit requirements, a list of 
references pertaining to that particular section, and a sample problem. 
For the two major codes within MASH, i.e., DORT and MORSE, the section 
is not intended to be a complete description and the interested user 
might consider obtaining the reference documents for these two codes. 
However, the information in each of the sections should be sufficient 
for understanding and using MASH. 


1.3.2 The Appendices 

The Appendices include detailed descriptions of FIDO input (Appendix A), 
the theory behind in-group energy biasing (Appendix B), a detailed 
description for the GIFT5 geometry package (Appendix C), a listing of 
the MASH 1.0 computer code abstract (Appendix D), and a short, informal 
"user motes" section (Appendix E) which addresses some of the caveats of 
performing the MASH analysis of the sample problem as determined through 
the experience of the MASH 1.0 manual's editor. The inclusion of the 
in-group biasing theory in the appendix (rather than in the MORSE 
section) was due to the format chosen for the "user's" manual. The 
detailed description of the GIFT5 geometry package was included for 
completeness since this package is unpublished. 


1.3.3 The Sample Problem 

The sample problem represents a "benchmark" calculation of MASH 1.0 on 
the Two-Meter Box Test Bed experiments performed at APRF. 20(21 The 
results of the MASH analysis were generally within 15% of the 
experimental measurements for both differential and integral free-field 
and in-box neutron and gamma-ray dose. There was also excellent 
agreement in the protection factor analysis for the box. This sample 
problem was independently analyzed by both SAIC and ORNL with C/C 
ratios, i.e., SAIC calculations/ORNL calculations, typically within 5%. 
The sample problem input and output for each code is given in the 
respective sections of the report. However, each part of the sample 
problem fits into the data flow shown on Figure 1-4, and the user should 
take time to see which parameters in one code depend on parameters from 
the previous code, i.e., the axial and radial mesh between DORT and 
GRTUNCL. In the discussion of the sample problem in each section, most 
of these dependencies are identified. 
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2.0 GIP: A GROUP-ORGANIZED CROSS SECTION INPUT PROGRAM 


2.1 INTRODUCTION TO GIP 


2.1.1 Background 

GIP is an auxiliary code used to pre-mix the material cross-section sets 
for very large discrete ordinates calculations (relative to available 
core space). The motivation for developing GIP was due to complications 
arising when the amount of core space required for the mixing table 
exceeded the available core storage. GIP was written to treat each 
component of the Legendre expansion, i.e., P L term, of a cross-section 
set as a separate nuclide. This data processing treatment was seen as a 
requirement in the 1960's, when the code originated. Although certain 
features of the mixing table expedite the mixing of P L sets, there is 
little doubt the code would be more convenient for present-day problems 
if all of the components of the Legendre expansion for a cross-section 
set were treated as a unit. 

GIP accepts nuclide-organized microscopic cross-section data from either 
the input stream in card-image format or from a data library prepared by 
the ALC1 1 program. Macroscopic cross section mixtures can be prepared 
as specified by a mixing table simila. u that of DDRT 2 . The total 
upscatter cross section can be calculated and inserted into the set. 

The result is a "GIP" cros. section library file (defined in Section 
2.5). Microscopic and/or macroscopic cross-section data can be included 
in the output cross-section library file and/or printed output file. 

me chief virtues of GIP are its extreme simplicity and its high 
compatibility with DORT, ANISN 3 , and related codes. It is operable on 
virtually any type computer that provides sequential scratch files. It 
uses the FIDO card-image input processor described in Appendix A, and 
shares many subroutines with DORT. Its major disadvantage is the 
inability to translate complex input library files such as ISOTXS. 4 


2.1.2 Method Used 

The cross sections specified in the input stream are selected, and the 
number of energy groups which can be processed at one time is decided. 
The groups for the amount of core allocated, i.e., "one corefuli," are 
selected as each nuclide is read and dumped onto a source file. The 
remaining groups, if any, are written to a holding file. When all 
nuclides have been located, the data are read from the source file into 


*W. A. Rhoades and M. B Emmett, "DOS: The Discrete Ordinates System," 
ORNL/TM-8362, Oak Ridge National Laboratory, (September 1982). 
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core and written in group-ordered format onto a sorting file. A new 
corefull of data is then moved from the holding file to the source file, 
and then to the sorting file as before. Unprocessed groups, if any, are 
spilled to a second holding file, which is processed like the first 
holding file. This sequence continues until all groups have been 
processed. Efficiency is improved when one group of data can be written 
directly to the sorting file each time the source file is loaded. In 
the final step, the group-organized data are read, mixed, edited, and 
written to the output file. 

The advantages of the GIP system are that it can process a cross section 
volume of several corefulls with inconsequential cost, using only 
sequential files, and that it is easily adapted to new or different 
computing environments. Unfortunately, if the cross section volume 
increases to ten or more corefulls, for example, the sorting process may 
become inefficient. 

The GIP method was originated by W. W. Engle, Jr. in a program called 
TAPEMAKER 3 , the predecessor to the ALC1 program, which operated on the 
IBM 7090 before the days of random access files. The basic procedure 
has changed little since then. 


2.2 GIP INPUT REQUIREMENTS 

The following input cards are required to execute GIP. Default values 
are in brackets ([]). 

Title Card (72 alphanumeric character description) 


INPUT DATA BLOCK 1 

1$ Array - Integer Control Parameters 
IGM number of energy groups 

IHT position of total cross section in cross-section table 
IHS position of self-scatter cross section in cross-section 
table 

IHM cross-section table length per energy group 
(usually IHM = IHT + IGM) 

MS cross-section mixing table length 

- 5 — 

MCR number of materials read from cards 

MTP number of materials read from input cross-section 

library tape (nuclide or GIP format) 

MTM total number of materials (MCR+MTP+MIXTURES) 
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ITH 


output cross-section library flag 
0/1 - forward/adjoint cross-section library 
ISCT maximum order of Legendre expansion of cross sections 

- 10 — 

IPRT output cross-section print control flag 

0/1/2 = print all materials/none/mixtures only 
IOUT output cross-section library control flag 

0/1/2 = output all materials/none/mixtures only 
IDOT output cross-section library format flag 
0/1/2 = ANISN/DOT 11 I/DOT IV format 
NBUF number of k-bytes of core 

E (terminate array with "E") 

T (terminate block with "T") [T always required] 


INPUT DATA BLOCK 2 

10$ Array - Material Numbers (MS entries) 

11$ Array - Component Numbers (MS entries) |— Mixing Table 

12* Array - Density Multipliers (MS entries) 

7$ Array - Mix Code (optional - MTM entries) 

13$ Array - Nuclide ID Numbers on Library File (MTP entries required 
only if IDAT1 is not equal to 2) 

T (terminate block with "T") [T always required] 


INPUT DATA BLOCK 3 

14* Array - Cross Sections for Nuclide 1, ANISN format, all groups 


[each new nuclide must start on a new card] 


- Cross Sections for Nuclide MCR, ANISN format, all groups 
(IHM*IGM*MCR entries required) 

T (terminate block with "T") [T required if MCR > 0] 
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2.3 GIF INPUT DATA NOTES 


Except for thi title card, all data are read using the FIDO input 
system. A detailed description of the FIDO input system is given in 
Appendix A. Data arrays are entered in blocks, each terminated by a 
"T". Unused data arrays (e.g., 10$ if MS=0) are not entered, but a "T" 
must still be entered to signal the termination of each block. Multiple 
problems can be stacked with a blank card separating cases. Input data 
are not saved between stacked cases. 

1$ Array The meaning of the first eight input parameters of the 1$ 
array are compatible with 6RTUNCL (Section 3.0) and DORT (Section 4.0). 

IHT, IHS, IHM The discussion of these input parameters is given in 
Section 2.4.1. 

MCR, MTP, MTM GIP assigns storage space (IHM*IGM words/set) for MTM 
sets of cross sections, called "materials." The first MCR spaces are 
filled with data read from cards in the 14* array. The next MTP 
material spaces are filled with nuclide data read from the data set 
mounted on the input library logical unit (default=8) and stored in the 
order indicated by the 13$ array. The remaining spaces between MCR+MTP 
and MTM are available for preparing mixtures. 

NOTE: If MCR=0, the 14* array and corresponding data block 
terminator is not required. 

ITH If ITH=1, two major reordering steps are carried out to produce an 
adjoint cross-section library: 

1. The inscatter matrix is transposed, i.e., the table position 
associated with group g describing scattering from g' to g 
is changed to describe scattering from g to g'. 

2. The ordering of the groups is reversed, i.e., data for group 
IGM appear first in the output file, followed by IGM-1, etc. 

A simple three group example is illustrated in Section 2.3.3. 

ISCT When the order of scatter is greater than zero, GIP expects the P, 
cross section to be material.M+l, the P 2 cross section to be M+2, etc., 
where M is the P 0 material number: 


P 0 Data, Nuclide 1 
Pi 

P 2 


P, SCT Data, Nuclide 1 
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Po 


p 

p 


Data, 


Nuclide 2 


Pisct 


Data, 


Nuclide 2 


For components other than P 0 , cross section positions other than 
positions IHT+1 through IHM may be zero. 

IPRT, IOUT If IOUT=0, the output includes MCR+MTP microscopic cross 
sections, plus (MTM-MCR-MTP) mixtures. If I0UT=2, only the mixtures 
will be output. Printed cross-section edits are similarly controlled by 
IPRT. 

For most DORT problems, I/O manipulation can be reduced by asking only 
for the output of the mixtures from GIP. They are then referred to in 
DORT such that material one is the first GIP mixture, etc. Any 
microscopic data to be used in DORT activity edits must be included as a 
mixture, as must nuclides whose concentrations are to be modified in a 
search. 

IDOT This parameter identifies three possible output cross section 
library formats. Only the ANISN and DOT IV formats are discussed since 
they are used in present day applications. The DOT III format was 
retained from earlier versions of GIP, and although still operational, 
should be avoided, unless DOT III will be used for the final 
calculation. 

NBUF This parameter is only applicable for IBM machines and must allow 
enough buffer space for the data sets which are listed in Section 2.6. 

10$, 11$, and 12* Arrays The cross section mixing table is used to 
combine elements into macroscopic mixtures. Experience will reveal that 
only the imagination limits its flexibility. As with DORT, the integers 
in the mixing table refer to a continuous array of MTM cross section 
sets of which the first MCR+MTP are nuclide data read from card-image 
input and a library file, respectively. All of the sets beyond MCR+MTP 
are preset to zero before the mixing table is executed. In non-search 
problems where cross-section storage is difficult, i.e., large problems 
that do not involve material buckling or concentration searches, 
material spaces originally used for input nuclides can be reused for 
mixtures. While the general rules for creating mixtures are equally 
applicable for GIP, GRTUNCL, and DORT, it should be noted that reference 
to eigenvalue modification in the DORT mixing table description has no 
application to GIP mixing. The interpretation rules applicable to GIP 
are as follows: 
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a. If the mixture number is N and the component number is 0, then 
the cross sections in mixture N will be multiplied by the 
number entered in the density column: 

^MIXTURE N(NEW) * ^MIXTURE N(OID) * DENSITY 

b. If the mixture number is N and the component number is M, then 
the cross sections in component M, multiplied by the density, 
will be added to the cross sections in mixture N: 

Fixture ncneu) * ^mixture n(old> + ^component m * DENSITY 

Note: Either a mixture or a component may be made up of 

microscopic or macroscopic cross sections for a single 
isotope or mixture of isotopes. 

A sample mixing table showing the various options is given below. 


MIXTURE 

COMPONENT 

DENSITY 

(10$ ARRAY) 

(11$ ARRAY) 

(12* ARRAY) 

6 

l 

0.4 

6 

3 

0.5 

7 

2 

0.4 

7 

4 

0.5 

7 

0 

3.0 


The mixture table given above would do the following: 

(1) Add components 1 and 3 with densities 0.4 and 0.5, 
respectively, to form mixture 6: 

a 6 ■ a, * 0.4 + a 3 * 0.5 

(2) Add components 2 and 4 with densities 0.4 and 0.5, 
respectively, to form mixture 7: 

a 7 - <?2 * 0.4 + * 0.5 

(3) Multiply mixture 7 by 3.0: a 7 - a 7 * 3.0 

10$ Array If the 10$ entry is tagged with a negative, the next ISCT 
components will be treated as P L components. For example: 


10$ 11$ 12* (with ISCT - 3) 

-13 1 1.0 


will be equivalent to 
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10 $ 


11 $ 


12* (with ISCT •= 0) 


13 

1 

1.0 

14 

2 

1.0 

15 

3 

1.0 

16 

4 

1.0 


7$ Array The numbers in the mixing table normally refer to positions in 
the material block, which contains MCR nuclides from cards, followed by 
MTP nuclides from tape and MTM-MCR-MTP mixtures. It is often 
convenient, however, when constructing the mixing table to refer to 
fictitious "mix code" numbers. The 7$ array can be entered to define 
the list of fictitious mix codes corresponding to each material. If the 
7$ array is omitted, the mix code is equal to the material number. 

13$ Array A negative entry in the 13$ array replaces the following ISCT 
entries with successive ID's. Thus: 


13$ 13$ 

-101 101 

-101 is equivalent to 102 

-101 103 


14* Array The input of the 14* array is performed by subroutines which 
have certain restrictions in addition to those of normal FIDO input: 

a. The nuclide spaces are preset to 0.0, so that "E" or "FO" 
will have the effect of filling the remaining space with 0.0, 
but "E" and "F" must not be used in the input for the last 
nuclide. 

b. The 14* or 14** designation may precede each nuclide block, 
but is not required except in the first block. 

c. Entries, including operators such as "T", following the 
last data item for nuclides other than the last, and on the 
same card as the last item, will be ignored. 

d. The "T" which terminates this block must appear alone in 
column 3 of a separate card. 


2.3.1 Special Diffusion Theory Option 

If the cross-section set contains a transport cross section in position 
N, then setting ISCT = -N causes the total cross section (position IHT) 
to be replaced by the transport cross section and the self-scatter cross 
section (position IHS) to be reduced such as to maintain a constant 
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absorption cross section. The resulting cross-section set is suitable 
for use in a P 0 DORT calculation, especially one using the diffusion 
package. 

NOTE: Negative entries in the 10S array must not be used with 
this option. 


2.3.2 Upscatter Option 

If the self-scatter cross section position (IHS) is greater than IHT+1, 
the upscatter processor calculates the total upscattering cross section 
from each group and places it in the appropriate table position. No 
user action is required. 


2.3.3 Adjoint Reordering Example 

A three-group example showing the relationship between a forward and 
adjoint cross-section set is shown below. In this example, there is no 
upscatter, one activation cross section, IHT « 4, IHS = 5, and IHM = 7. 


Direct 

Adjoint 

a r ( 1) 

o T { 3) 

<d) 

<(3) 

W> (1) 

ua r (3) 

o'(l) 

a T (3) 

0(1-1) 

a( 3-3) 

0 

0 

0 

0 

c'm 

2) 

o*<2) 

<(2) 

oo (2) 

^(2) 

o’(2> 

<7 T (2) 

■>(2-2) 

<7(2-2) 

o(l-2) 

<7(2-3) 

0 

0 

o'(3) 

a F (l) 

o*(3) 

<7*(1) 

oo’<3) 

*7 d) 

o'(3) 

<7 T ( 1 ) 

o(3-3) 

<7(1-1) 

o(2-3) 

<7(1-2) 

o(l-3) 

<7(1-3) 
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2.4 INPUT LIBRARY FORMAT 

The input library format from which MTP nuclides are taken is defined in 
the following manner: 


ALC Cross Section Library Format 


PROPOSED 19 MAY 80 


TRANSPORT CODE CROSS SECTION DATA 


C 
C 

CF 
CE 
C 

Q****************************************************************** 

c 

THE TERMINATION RECORD DEFINES THE LENGTH OF THE 
DATA SET AND THE NUMBER OF NUCLIDES 


THE ID VALUES MUST BE IN ASCENDING ORDER 


FILE STRUCTURE 


RECORD TYPE 


**************** (REPEAT F0R ALL NUCLIDES) 
* CONTRAL DATA FOA A NUCLIDE 

CROSS SECTION DATA FOR A NUCLIDE 


**************** 


PRESENT IF 


ALWAYS 

ALWAYS 


CR 

r 


CONTROL DATA FOR A NUCLIDE 

CL 

r 

NOG,NCTL,NCC,NCID,(NAME(I),1=1,12) 

i* 

cw 

16-NUMBER OF WORDS 

CD 

NOG 

NUMBER OF ENERGY GROUPS FOR THIS ! 

CD 

NCTL 

LENGTH OF CROSS SECTION TABLE FOR 

CD 

NCC 

=0 SET WAS ADDED TO LIBRARY 

CD 


=2 SET REPLACED AND EXISTING SET 

CD 

NCID 

IDENTIFICATION NUMBER 

CD 

NAME 

ARBITRARY DESCRIPTION, A4 FORMAT 
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c 

C-- 

CR 

C 

CL 

C 

CW 

C 

CD 

CD 

CD 

CD 

C 

C-- 

C 

C 

C-- 

CR 

C 

CL 

C 

CW 

C 

CD 

CD 

C 

C-- 


CROSS SECTIONS FOR A NUCLIDE 

((CRX(IH,IG),IH=1,NCTL),IG=1,NOG) 

NCTL*NOG=NUMBER OF WORDS 

CRX CROSS SECTION DATA ORDERED 

AS PER SECTION 2.4.1 

NCTL AS SPECIFIED BY PREVIOUS RECORD 

NOG AS SPECIFIED BY PREVIOUS RECORD 


TERMINATION 

NOG,NCTL,NCC.NCID,(NAME(I),1=1,12) 

16-NUMBER OF WORDS 

NCC 7, ALWAYS 

OTHER ITEMS ARBITRARY 


2.4.1 ANISN Nuclide Format Cross-section File 

In a normal GIP problem, cross sections are read from card input and/or 
from an external data set in nuclide-organized format, i.e., all the 
cross sections for one group of one nuclide, followed by other groups 
for that nuclide, and finally followed by data for other nuclides. 
Within a group, GIP expects the ordering of data in the cross section 
table in the following format: 


Table Position 

Entry 

Cross Section Type 

1 

«’<9> 

First activation cross section 
(if any) 


IHT-3 

<* L (g) 

Last activation cross section 
(if any) 

IHT-2 

**(g) 

Absorption 


2-10 











IHT-1 

w F (g) 

Neutron Production 

IHT 

* T (g) 

Total removal 

IHT+1 

* TUS (g) 

Total upscatter cross section from 
group g (omit this entry if NUS=0) 

IHS-NUS 

a(g+NUS-*g) 

Scattering from group g+NUS to g 


IHS-1 

*(g+i-g) 

Scattering from group g+1 to g 

IHS 

a(g-g) 

Scattering from group g to g 

IHS+1 

*(g-i-g) 

Scattering from group g-1 to g 

IHM 

a(g-NDS-g) 

Scattering from group g-NDS to g 


From this, it can be seen that: 

NUS = IHS-IHT-2 = number of upscatter groups, if greater than 0, 
NDS - IHM-IHS * number of downscatter groups, 

L * IHT-3 * number of activation cross sections. 


Special illustrations of interest are: 


IHM = IGM + 3 
IHS = 4 
IHT = 3 


and, 


h Full downscatter; no upscatter; 
no activation cross section 
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IHM * IGM + 5 + NUS 


IHS = 6 + NUS 
IHT = 4 


Full downscatter; NUS upscatter; 
— room for an activation cross 
section in position 1. 


Thus the parameters IHT, IHS, and IHM completely describe the format of 
the cross sections. If there are no activity cross sections, IHT=3. If 
there is no upscatter IHS « IHT + 1. If there is no downscatter IHM = 
IHS (i.e., a one group problem). If there is upscatter, GIP will 
compute a total upscatter cross section for each group of each material 
and place that cross section in position IHT +1. The activity cross 
sections are only used for activity calculations and not used in the 
transport process itself. 


2.5 GIP OUTPUT FILE 

The GIP output file is group-ordered for transport codes and this format 
is compatible with both ANISN and DORT requirements. The groups are 
normally ordered from high to low neutron energy, then from high to low 
photon energy, if any photon groups are present. 


C-- 

C 

CR 

C 

CL 

C 

CW 

C 

CD 

C 

C-- 

C-- 

C 

CR 

C 

CL 

C 

CW 

C 

CD 

C 

C-- 


GIP Cross Section Library Format 


PRINCIPAL CROSS SECTION DESCRIPTION 
(PCSD(IH),IH=1,IHT) 

NUMBER OF WORDS = MULT*IHT 

PCSD(IH) PRINCIPAL CROSS SECTION LABELS - (A6) 


NUCLIDE IDENTIFICATION 
(NUC(MT),MT=1,MTM) 

NUMBER OF WORDS = MULT*MTM 
NUC(MT) NUCLIDE LABELS - (A6) 
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c~ 

c 

CR 

C 

CL 

C 

cw 

c 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

C 

C-- 


CROSS SECTION DATA 


((SIG(IH,MT),IH=1,IHP),MT=1,MTM) 
NUMBER OF WORDS = IHP*MTM 


SIG(IH.MT) 

1 TO IHT-5 
IHT-4 
IHT-3 
IHT-2 
IHT-1 
IHT-0 
IHT+1 


CROSS SECTION DATA BY TABLE POSITION, 

THEN BY NUCLIDE. TABLE POSITIONS CONTAIN: 
ARBITRARY DATA, SPECIFIED BY USER, OR ABSENT 
FISSION YIELD FRACTION (RECOMMENDED) 

FISSION CROSS SECTION (RECOMMENDED) 
ABSORPTION CROSS SECTION 
NEUTRON PRODUCTION CROSS SECTION 
TOTAL CROSS SECTION 

UPSCATTER FROM GROUP IG+(IHS-1-IHT) TO IG 


IHS-1 UPSCATTER FROM GROUP IG+1 TO IG 
IHS SELF SCATTER FOR GROUP IG 
IHT+1 DOWNSCATTER FROM GROUP IG-1 TO IG 


IHM DOWNSCATTER FROM GROUP IG+IHS-IHM TO IG 
IHM+1 TOTAL SCATTER FROM GROUP G TO ALL GROUPS 

(PRESENT ONLY IF IHS IS GREATER THAN IHT+1) 

IHS MAY BE IHT+1 IF UPSCATTER IS ABSENT. 
TRANSFERS FROM GROUPS LESS THAN 1 OR GREATER 
THAN IGM ARE ZERO. POSITIONS LESS THAN OR 
EQUAL TO IHT ARE ZERO FOR PL COMPONENTS 
OTHER THAN THE OTH. 

EACH COMPONENT OF A PL SET IS TREATED AS A 
SEPERATE NUCLIDE. THUS, M SETS WOULD 
COMPRISE M*NQUAD+M NUCLIDES 
IHP EQUALS IHM UNLESS IHS.GT.IHT+1, THEN IHM+1 


2.6 LOGICAL UNIT REQUIREMENTS 

Below is a listing of the files required to execute a GIP case along 
with the default values used in the code. In setting up a GIP case, 
efforts must be made for these units to be available. 


1. Logical Unit 1 - SCRATCH 

2. Logical Unit 2 - SCRATCH 

3. Logical Unit 3 - SCRATCH 
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4. Logical Unit 8 - GIP formatted Cross-section Library Output 

5. Logical Unit 9 - ANISN formatted Cross-section Library Input 

6. Logical Unit 4 - SCRATCH 

7. Logical Unit 6 - Printed Output 

8. Logical Unit 5 - Card Input 


Logical unit assignments for the first six data files can be modified by 
altering locations 15-20 of the 1$ array (not shown in Section 2.2) to 
the new logical unit numbers. The new values will not be listed in the 
input edit, however. 


2.7 PROGRAMMER INFORMATION 


2.7.1 Inter-machine Adaptability 

The GIP code is intended to be easily adaptable to any type of 
sophisticated computer, and yet to take advantage of certain localized 
structural features which may be machine-dependent. 

In general, the guidelines of ANS-STD.3-1971 5 are followed. This 
requires general adherence to a simple, standard FORTRAN language except 
where deviations provide important improvements in capability and can be 
documented. In addition, machine-dependent features have been kept 
localized and have not been included in the subroutines which perform 
actual computation. 

The recommended procedures of the Committee on Computer Code 
Coordination (CCCC)*- 6 have been followed where practical. Compliance 
with these standards has been incomplete where cost was prohibitive, the 
nature of the codes did not allow it, or the expected level of 
performance could not be obtained in that fashion. 

Where minor or certain machine-dependent features are required, 
alternative features are enclosed in pairs of 3-character "language 
flags." The alternative statements remain in the source program, with 
inappropriate sections transformed into comment statements. If the code 
is set up for IBM operation, for example, it might contain: 


CIB 



CIB 

CDC 

ENTRY 

IBCDC(H,E,L,P) 

C 

CDC 

ENTRY 

IBCDC 
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The corresponding CDC configuration would be: 


CIB 


C 

ENTRY IBCDC(H,E,L,P) 

CIB 


CDC 

ENTRY IBCDC 

CDC 



All versions of a given procedure are thus available for inspection by 
all users. The selection of options is made by a computer program at 
distribution time. A listing of machine-dependent sections can also be 
prepared in that process. 

The language flags achieve the major objective of having a single, 
unified source for each program which is maintained for all users. With 
these provisions, the basic FORTRAN programs are operable on IBM, CDC, 
UNIVAC, CRAY, Amdahl, and other computers, except that system-dependent 
service routines as specified by CCCC must be provided. 

Optional packages and procedures which provide enhanced convenience are 
also available. The optional run-time storage allocation requires 
system-dependent routines. Instructions for installing these options 
are distributed with the source programs. All known users at this time 
use all of the optional enhancements available to them. Even so, the 
basic operation with FORTRAN routines plus the CCCC package remains 
available if needed. 


2.7.2 Service Subroutines 

Certain standard service subroutines are specified by the CCCC for use 
in reactor physics codes. The service routines used in these codes 
include: 


TIMER 

REED 

RITE 

DRED 

DRIT 

DOPC 


3 - 

3 - 


Provides timing and job identification data 
Provide sequential access to data files 

Provide random access to data files 

jvides initiating, closing, and certain repositioning 
of data files 
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CRED 


CRIT 


J- 


Provide block transfer of data between fast and slow 
memory. 


Many of these subroutines also call other subroutines. Many are 
entirely system dependent. Each configuration to be distributed 
contains an appropriate set of service subroutines, insofar as possible. 
The realities of computing environments may require local modification 
or substitution. The specifications given in Reference 4, together with 
extensive in-stream comments, provide guides for such modification. 
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2.9 SAMPLE PROBLEM 


A complete listing of the input cards for the sample problem is given in 
Figure 2-1, and some selected output is shown in Figure 2-2. The sample 
problem demonstrates the processing of the materials for the air-over- 
ground analysis of the two-meter box experiments. 7 * 8 

In viewing Figure 2-1, the input illustrates; 69 energy groups (IGM), a 
cross-section table length (IHM) of 72, no upscatter (IHT=3, and IHS=4), 
and a mixing table length (MS) of 558. No material data was read in 
from cards (MCR=0) and 144 materials were read in from tape (MTP=144). 
Since ISCT=5, there were actually 24 different nuclides read in from 
tape, each with a P 0 through P 5 component. The total number of mixtures 
(MTM) was 198, and only mixtures were output (I0UT=2) to the GIP 
library. No print was requested for the printed output (IPRT=1), and a 
DOT IV formatted cross-section file was output (ID0T=2). All comments 
after the slash (/) are ignored in FIDO input and are only useful for 
quick identification of the input parameters. The GIP sample input in 
Figure 2-1 shows multiple mixtures of the same material, i.e., ground 
and air, with different number densities. This allows mixing the cross 
sections for several different air-over-ground calculations in only one 
GIP case. 

The selected GIP output shown in Figure 2-2 first illustrates the input 
parameters read in the first data block, followed by the memory 
requirements to run this particular GIP case, the input library record 
length, and an indication that the second data block has been 
successfully read. The output then produces the mixing table (10$, 11$, 
and 12* arrays) along with the mixing codes (7$ array) and nuclide 
identification numbers (13$ array). This output is useful for checking 
the input to make sure there are no errors in nuclides selected for 
mixtures, number densities used in mixtures, and nuclides selected from 
the input library. The mixing table is followed by a listing of the 
nuclides extracted from the input cross-section library file. This 
table is also useful for verifying the elements pulled off of the input 
cross-section library file. In this table, the user can also verify the 
P L components used in the mixing. The output then shows some messages 
informing the user of the cross-section sorting process discussed in 
Section 2.1.2. Finally, the output lists the titles for the group- 
organized cross sections written to the output unit. If the print flag 
had been turned on (IPRT=0 or 2), the cross sections would have been 
printed after the titles. It should be noted that setting the print 
option to print either all elements and mixtures (IPRT=0) or only 
mixtures (IPRT=2) will produce a considerable amount of output for large 
group structures and high orders of scattering. 
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gip mixtures for the 10/89 two meter box experiments -- p5 forward 

155 69 3 4 72 558 /igm,iht,ihs,ihm,ms 
0 144 198 0 5 /mcr,mtp,mtm,ith,isct 
1 2 2 120 /iprt,iout,idot,nbuf 
e t 

105$ 4i145 150 19q6 4i151 156 10q6 4i157 162 3q6 4i163 168 5q6 
/ aprf ground borated concrete air 1020 steel 

4i169 174 19q6 4i175 180 19q6 4i181 186 3q6 4i187 192 3q6 
/ aprf ground aprf ground air air 

4i193 198 3q6 
/ air 

115$ 58i1 60 lOi67 78 40i85 126 4i139 144 / aprf ground 

16il 18 4i31 36 16i43 60 4i91 96 

4i103 108 lOi127 138 / borated concrete 

4il 6 lOi25 36 4i79 84 / air 

4i19 24 16i55 72 10i97 108 / 1020 steel 

58i1 60 lOi67 78 40i85 126 4i139 144 / aprf ground 

58il 60 10i67 78 40i85 126 4i139 144 / aprf ground 

4il 6 lOi25 36 4i79 84 / air 

4il 6 lOi25 36 4i79 84 . / air 

4il 6 lOi25 36 4i79 84 / air 

12** /number densities (atoms/b-cm) 

6r4.236-02 6r9.586-09 6r3.509-08 6r; ''75-04 
6r4.752-05 6r4.178-02 6rl.427-04 6r9.126-05 
6rl.377-03 6r9.514-03 6r3.610-06 6r3.537-06 
6r2.048-04 6r2.599-05 6r7.199-06 6r3.213-04 

6r2.783-07 6r2.793-07 6r4.858-07 6r7.315-08 /aprf ground-34% h2o 

6r7.020-03 6r2.887-04 6rl.168-03 6r5.908-02 
6rl.659-03 6r4.656-03 6rl.080-02 6r3.486-03 
6rl.431-03 6r7.667-04 6r6.709-04 /borated concrete 


Figure 2-1. Sample GIP Input for the 
Two-Meter Box Air-Over-Ground Analysis. 
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6r6.122-07 

6r3.985 

-05 

6rl.100-05 

6r2.383-07 

/air ■ 

■ 10-24-89(a) 

6r8.078-04 

6r4.213 

-04 

6r6.113-05 

6r7.381-05 



6r3.877-04 

6r8.391 

-02 



/1020 

steel 

6r2.653-02 

6rl.162 

-08 

6r4.254-08 

6r4.576-04 



6r5.760-05 

6r3.823 

-02 

6rl.729-04 

6rl.106-04 



6rl.669-03 

6rl.153 

-02 

6r4.376-06 

6r4.288-06 



6r2.482-04 

6r3.151 

-05 

6r8.727-06 

6r3.895-04 



6r3.373-07 

6r3.386 

-07 

6r5.889-07 

6r8.867-08 

/aprf 

ground-20% h2o 

6r5.819-02 

6r7.553 

-09 

6r2.765-08 

6r2.974-04 



6r3.744-05 

6r4.532 

-02 

6rl.124-04 

6r7.190-05 



6rl.085-03 

6r7.496 

-03 

6r2.845-06 

6r2.787-06 



6rl.613-04 

6r2.048 

-05 

6r5.672-06 

6r2.532-04 



6r2.193-07 

6r2.201 

-07 

6r3.828-07 

6r5.763-08 

/aprf 

ground-48% h2o 

6r3.278-07 

6r4.021 

-05 

6rl.095-05 

6r2.405-07 

/air - 

• 11-01-89(h) 

6r9.350-07 

6r3.858 

-05 

6rl.082-05 

6r2,308-07 

/air - 

10-30-89(a) 

6r5.596-07 

6r3.948 

-05 

6rl.087-05 

6r2.361-07 

/air - 

10-25-89(a) 


13$$ 1 2 3 4 5 6 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 

61 62 63 64 65 66 67 68 69 70 71 72 79 80 81 82 83 84 85 86 87 88 

89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 
108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 

124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 157 

158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 

174 175 176 177 178 179 180 181 182 183 184 185 186 199 200 201 

202 203 204 205 206 207 208 209 210 223 224 225 226 227 228 

/ h,bl0,bll,c,n,o,na,mg,al,si,p,s,cl,ar,k,ca,mn,fe,co,ni,cu,zr,nb,sn 


Figure 2-1. (continued) 
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length- 42495 loaded 12/18/89 07: 
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Figure 2-2. Sample GIP Output for the Two-Meter Box Air-Over-Ground Analysis. 
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Figure 2-2. (continued) 
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Figure 2-2. (continued) 
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Figure 2-2. (continued) 
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Figure 2-2. (continued) 
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Figure 2-2. (continued) 
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Figure 2-2. (continued) 
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Figure 2-2. (continued) 


















3.0 GRTUNCL: AN ANALYTIC FIRST COLLISION SOURCE CODE 


3.1 INTRODUCTION TO GRTUNCL 


3.1.1 Background 

In the development of DORT 1 , a general method was obtained which was 
inherently capable of solving most two-dimensional neutron and gamma-ray 
transport problems, including deep penetration. The approximations of 
discrete ordinates theory are not limiting since, at least in principal, 
the number of energy groups, solid angle segments and space intervals, 
and the order of expansion of the differential scattering cross sections 
may be increased as necessary to obtain the desired solution. However, 
the problems which can be solved in practice are limited by the finite 
computer speed, memory size, and costs. In order to extend the 
capabilities of OORT, a combination of efficient programming and 
analytical "tools" were used. One of the analytical "tools" developed 
was the analytic first collision source code - GRTUNCL. 

In two-dimensional r-z cylindrical geometry, the finite number of angles 
may result in an anomaly called the "ray effect." The problems in which 
ray effects are noticed are characterized by sources and detectors which 
are small compared to the total geometry, and a scattering mean free 
path which is long compared to the space mesh. Hence, if a problem such 
as a point source or point detector in a highly absorbing medium is 
approximated by the discrete ordinates difference equations, the 
fluences along a spherical surface centered about the source are 
observed to rise and fall in a wave-like pattern instead of being 
constant. Furthermore, the peaks in the distribution are observed to 
fall along rays following the polar angles of the quadrature centered at 
the source. 

In the discrete ordinates solution of the two-dimensional cylindrical 
transport equation, the angles in the quadrature are arranged in levels 
which are comprised of directions having the same polar direction 
cosine, 17 . Within these levels, particles change angles due to both the 
curvature and scattering derivatives. However, transfers from a 
direction in one rj level to one in another level occur only through 
scattering. Particles that start out in an rj level tend to stay in the 
same level until scattered. Since there are only a finite number of 
levels, particles tend to appear only at space intervals which are 
oriented with the source along a discrete rj level. If the source region 


'R. L. Childs and J. V. Pace, III, "GRTUNCL: First Collision Source 
Program," Unpublished documentation (1982), included in the 
documentation of the Radiation Shielding Information Center CCC-484/D0RT 
Code Package, Oak Ridge National Laboratory. 
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is distributed or if scattering is dominant, no ray effects appear. 
However, if the source is localized and spatial convection is dominant 
(i.e., the change in the particle fluence is governed by geometric 
attenuation), ray effects may be significant. 

An obvious way to mitigate ray effects would be to increase the number 
of r\ levels. However, this approach is uneconomical and usually only 
slightly effective. Another technique is to employ an analytic first 
collision source. This method essentially removes ray effects since the 
source is now distributed continuously in angle. For points within a 
mean free path or so of the source, the analytic uncollided fluence 
dominates. For intermediate points a few mean free paths from the 
source, the fluence is dominated by the source from first collisions 
which, although emitted into the discrete mesh, is distributed smoothly 
in space due to the analytic uncollided fluence. For points many mean 
free paths from the source, the fluence is due to particles which have 
suffered many collisions, a situation in which ray effects would not 
normally appear. 

Unfortunately, the technical problems involved in implementing the 
analytic first collision source in the general problem are prohibitive. 
For an arbitrary source distribution, the contribution to each space 
point from each source interval must be calculated. Furthermore, the 
cylindrical symmetry in r-z geometry must be accounted for by an 
azimuthal integration for each source interval. For example, a problem 
with 3000 space points and only 10 azimuthal intervals would require up 
to 9 x 10 7 calculations to determine the uncollided fluence. The point 
source on the cylindrical axis problem which produces the worst ray 
effects involves only 3 x 10 3 calculations for the same problem. 

Problems which have a co-axial parallel beam source may also be treated. 
Although these problems do not normally show severe ray effects, the 
source is usually input in the directions nearest the axis, which are 
usually 13* or more from the axis. This causes a slightly incorrect 
uncollided fluence and also makes it difficult to determine the collided 
fluence in the near axis angles. 


3.1.2 Method Used 2 

An analytic first collision source technique has been developed for use 
with the two-dimensional code, DORT, for the simple sources described 
above. Basically, GRTUNCL is used to obtain the uncollided fluences and 
to generate space, angle, and energy dependent first collision source 
distributions for input into the DORT code. The actual calculational 
scheme in GRTUNCL for an isotropic source consists of first calculating 
the uncollided fluence given by; 
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Kg in) 


]T Sg (r/t) exp [-fig (r*,ri)] 


(3-1) 


x 


A A k 

47T I Ti - rk | 2 


where $ ug (r,) is the uncollided fluence in energy group g at detector 
location' r { due to an isotropic distributed source spanned by r k . Here 
S a (r k ) is the number of source particles emitted at space point r k in 
energy group g per unit time per unit surface area, M k is the area on 
the source disk associated with S-(r k ), and 0 g (r k ,rj) is the number of 
mean-free-paths along the vector from r k to r ( . The evaluation of 
Equation (3-1) produces estimates of the direct and transmitted 
contributions, providing r k spans the resolved and background sources, 
respectively. 

GRTUNCL then generates a space-, angle- .and energy-dependent first 
collision source given by 


I m g' 

XT ~ (r >, exp[-Mr*,r,-)] 

x £ S .' (r ‘) 4ir | r< — r* | 2 
x A l,m (fit) A A k 


(3-2) 


where Q k represents the unit vector from r k to r 5 , the A l * m (fl) are 
reduced surface harmonics that result from two-dimensional symmetry, and 
the 2 l (g'-*g,rJ are the l'th coefficients in Legendre expansions of the 
energy group-to-group scattering cross sections. The DORT code uses the 
first collision source distribution to calculate the distributions of 
the collided fluence moments throughout the geometry mesh. 


3-3 





The above procedure is implemented in GRTUNCL in the following manner: 


1. The geometry is described with the same space mesh and 
material zones for the DORT problem. 

2. The uncollided fluence (magnitude and angle) is calculated for 
each space point and energy group. 

3. The first collision source, S, a function of radial interval, 
I, axial interval, J, angular moment, L, and group, G, is 
calculated for each space point, angular moment, and energy 
group. 

4. The source array, S, and the scalar uncollided fluence are 
written to an output file. 

5. DORT has been modified to use, as an option, the anisotropic 
source array, S, as the fixed source. The result of such a 
calculation is the collided fluence $ c g (r,fl) where the 
arguments are as before except that 0,' for angle, is added. 

At the end of the calculation, an option is available to 
produce either the collided fluence or the total fluence 
(collided plus uncollided). 


3.2 GRTUNCL INPUT REQUIREMENTS 

The following input cards are required to execute GRTUNCL. Default 
values are in brackets ([]). 

Title Card (72 alphanumeric character description) 


INPUT DATA 

BLOCK 1 

1$ Array ■ 

• Integer Control Parameters 

ITH 

input cross-section library flag 

0/1 = forward/adjoint cross-section library 

ISCT 

maximum order of Legendre expansion of cross sections 

IZM 

number of material zones 

IM 

number of radial intervals 

JM 

number of axial intervals 

- 5 - 

IGM 

number of energy groups 

IHT 

position of total cross section in cross-section table 
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IHS position of self-scatter cross section in cross-section 
table 

IHM cross-section table length per energy group 
(usually IHM - IHT + IGM) 

MS cross-section mixing table length 

10 — 

MCR number of materials read from cards 

MTP number of materials read from input cross-section 

library tape (nuclide or GIP format) 

MT total number of materials (MCR+MTP+MIXTURES) 

IDAT1 cross-section storage control flag 

= 0 implies store cross sections in core 

= 1 implies store cross sections on tape 

= 2 implies cross sections on input GIP tape 

NOA number of quadrature points in azimuthal spatial 
integration for ring source 
(6* and 7* arrays required if > 0) 


IMODE output fluence file format flag 
3/4 - DOT 11I/DOT IV format 
IPRTC output cross-section print control flag 
0/1 - print all materials/none 
NFLSV uncollided fluence moments output control flag 
-= 0 implies no effect • 

> 0 implies write uncollided fluence moments on NFLSV 
NPSO first collision source output control flag 

= 0 implies no effect 

> 0 implies write first collision source on NPSO 
IPRTF number of groups of uncollided fluence to be printed 


IPRTS number of groups of first collision source to be printed 
IZ3 source distribution table control flag 
= 0 implies no effect 

> 0 implies length of source distribution table 
IDFAC density factor control flag 

« 0 implies no effect 

> 0 implies density factors specified in 3* array 
NBUF number of k-bytes of core 

NTNPR - 0 implies no effect 

> 0 implies NTNPR is large scale print output unit 
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2* Array - Real Control Parameters 


XNF 


< 0 implies |XNF| is multiplication factor 
- 0 implies no normalization 
> 0 implies XNF is normalization factor 


\—lf IZ3 


0 


ZPT 

RPT 


< 0 implies |XNF| is multiplication factor 
= 0 implies enter different f(rj) 
for each energy group in 
14* array of INPUT DATA BLOCK 3 
> 0 implies XNF is normalization factor 


h—If IZ3 > 0 


axial position of source (cm) 
radial position of source (cm) 


T (terminate block with "T") [T always required] 


INPUT DATA BLOCK 2 

13$ Array - Nuclide ID Numbers on Library File (MTP entries 
required only if IDAT1 is not equal to 2) 

14* Array - Cross Sections for Nuclide 1, ANISN 3 format, all groups 


[each new nuclide must start on a new card] 


- Cross Sections for Nuclide MCR, ANISN format, all groups 
(IHM*IGM*MCR entries required) 

T (terminate block with "T") [T always required] 

INPUT DATA BLOCK 3 

1* Array - fission spectrum (IGM entries) 

2* Array - axial interval boundaries (JM+1 entries) 

3* Array - density factors by interval (IM*JM entries if IDFAC>0) 

4* Array - radial interval boundaries (IM+1 entries) 

6 * Array - angular quadrature weights for azimuthal spatial 
integration (NOA entries) 

7* Array - discrete values of integrand for azimuthal spatial 
integration (NOA entries) 
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8 $ Array - zone numbers by interval (IM*JM entries) 

9$ Array - material numbers by zone (IZM entries) 

10$ Array - Material Numbers (MS entries) 

11$ Array - Component Numbers (MS entries) |— Mixing Table 

12* Array - Density Multipliers (MS entries) 

13* Array - direction cosines, fj, for source input (IZ3 entries) 

(input negative tj's first) 

14* Array - input source shape, f(»?) (IZ3 or IZ3*IGM entries 
depending on XNF) 

15* Array - source by energy group (IGM entries) 

T (terminate block with "T") [T always required] 


3.3 GRTUNCL INPUT DATA NOTES 

Except for the title card, all data are read using the FIDO input 
system. A detailed description of the FIDO input system is given in 
Appendix A. Data arrays are entered in blocks, each terminated by a 
"T". Unused data arrays (e.g., 10$ if MS=0) are not entered, but a "T" 
must still be entered to signal the termination of each block. 

1$ Array The definitions of many of the parameters in this array are 
compatible with GIP (Section 2.0) and DORT (Section 4.0). 

ITH This flag only applies to the cross sections. If ITH-1, the source 
must be input in reverse order by energy group. If ITH=1, two major 
reordering steps are carried out to produce an adjoint cross-section 
library: 


1. The inscatter matrix is transposed, i.e., the table position 
associated with group g describing scattering from g' to g is 
changed to describe scattering from g to g'. 

2. The ordering of the groups is reversed, i.e., data for group 
IGM appear first in the output file, followed by IGM-1, etc. 

A simple three group example is illustrated in Section 3.3.1. 

ISCT When the order of scatter is greater than zero, GRTUNCL expects 
the P, cross section to be material M+l, the P 2 cross section to be M+2, 
etc., where M is the P 0 material number: 
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P 0 Data, Nuclide 1 


Pjsct Data, Nuclide 1 
P 0 Data, Nuclide 2 


Pisct 


Data, 


Nuclide 2 


For components other than P 0 , cross section positions other than 
positions IHT+1 through IHM may be zero. 

IZM The number of material zones specified in GRTUNCL should corresponJ 
to the number of material zones specified in DORT. This is not a 
requirement, however, because in DORT the user has the option of 
specifying the convergence by zone and consequently may have more zones 
defined than are required in GRTUNCL. It is generally useful to set the 
number of material zones according to the DORT requirements and utilize 
the same input for GRTUNCL. 

IM, JM The number of radial (IM) and axial (JM) intervals must 
correspond to the number of intervals utilized in DORT. Since GRTUNCL 
calculates the uncollided fluence and first collision source by 
interval, the number of intervals and interval boundaries must 
correspond to the DORT intervals. In setting up the interval 
boundaries, the position of the source (both axially and radially) must 
be considered so that the fluence does not differ by more than a factor 
of two between adjacent intervals. It should be noted that the interval 
next to the source interval will always exhibit greater than a factor of 
two difference in the fluence. A good rule of thumb for an air-over¬ 
ground calculation is to assume an initial "source" interval size and 
apply a factor of 1.3 to that interval size to determine the interval 
boundaries. For example, assume the source is positioned at r=0.0 and 
the source interval is 10-cm wide. The radial interval boundaries will 
be 0.0, 10.0, 13.0 (10.0 x 1.3), 17.0 (13.0 x 1.3), 22.0 (17.0 x 1.3), 
29.0 (22.0 x 1.3), etc., until the interval size reaches some 
predetermined maximum size, such as 25 meters for air. A similar 
sequence could be used for axial interval boundaries. 

NOTE: GRTUNCL cannot handle a variable mesh. Therefore, in 
modeling the air-over-ground problem, ignore the DORT 
variable mesh option. 
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IHT, IHS, IHM The discussion of these input parameters is given in 
Section 3.4.2. 

NCR, MTP, MT 6 RTUNCL assigns storage space (IHM*IGM words/set) for MT 
sets of cross sections, called "materials." The first MCR spaces are 
filled with data read from cards in the 14* array in INPUT DATA BLOCK 2. 
The next MTP material spaces are filled with nuclide data read from the 
data set mounted on the input library logical unit (default=4) and 
stored in the order indicated by the 13S array. The remaining spaces 
between MCR+MTP and MT are available for preparing mixtures. 

NOTE: If MCR=0, and IDAT1-2, the 13$ and 14* arrays in INPUT DATA 
BLOCK 2 and corresponding data block terminator are not 
required. This corresponds to pre-mixing the material 
cross sections in GIP and is the recommended method of 
supplying cross-section data to GRTUNCL. 

IDAT1 This parameter controls the cross-section data storage. If 
IDAT1=0, MCR materials are read in from cards, MTP materials are read in 
from an ANISN formatted library on logical unit 4, and MT materials are 
stored in core. If IDAT1=1, MCR cross sections are read in from cards, 
MTP materials are read in from an ANISN formatted library on logical 
unit 4, and MCR+MTP materials are stored on logical unit one prior to 
mixing. MT materials (GIP formatted) are then stored on logical unit 
two after mixing. If IDAT1=2, MTP materials are read in from a GIP 
formatted library on logical unit four and stored on logical unit two. 
IDAT1=2 is the recommended option for cross-section storage 

NOA This parameter can be zero for on-centerline sources. Further 
discussion is given in the data notes for the 6* and 7* arrays. 

IMODE This parameter identifies two possible output fluence file 
formats. Only the DOT IV format is discussed since it is used in 
present day applications. The DOT III format was retained from earlier 
versions of GRTUNCL, and although still operational, should be avoided, 
unless DOT III will be used in the final calculations. 

IPRTC If IPRTC=0, printed cross-section edits for all materials will be 
output. It is recommended this parameter be set to one to avoid a large 
amount of output. 

NFLSV If NFLSV is greater than zero, the uncollided fluence moment data 
are written on NFLSV. If IMODE = 4, the output is written in the VARSOR 
format, (see Section 3.5) which is suitable for use with DORT. 

NPSO If NPSO'is greater than loro, the first collision source data are 
written on NPSO. If IM0DE=4, the output is written in the VARSOR 
format, (see Section 3.5) which is suitable for use as DORT input. If 
NPSO equals zero, the input parameters IPRTF and IPRTS are ignored. 
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IPRTF If IPRTF is greater than zero, IPRTF groups of uncollided fluence 
edits will be output. For a large number of intervals (IM*JM), it is 
recommended this parameter be set to a small number (less than five). 
Analyzing the first non-zero group of the uncollided fluence will 
indicate the adequacy of the interval boundaries in the spatial mesh. 

IPRTS If IPRTS is greater than zero, IPRTS groups of first collision 
source edits will be output. It is recommended this parameter be set to 
zero because it generates a large volume of output. 

IZ3 This parameter controls the number of direction cosines, r \, used to 
describe the source input in the 13* array and the number of points used 
to describe the source shape, f( 17 ), input in the 14* array. If IZ3=0, 
only an energy dependent source distribution is entered in the 15* 
array, and the 13* and 14* arrays are omitted. 

NBUF This parameter times 1000 is the initial memory objective of 
6 RTUNCL on the CRAY. GRTUNCL divides the calculation into blocks where 
the number of blocks ranges from one to JM depending on how much memory 
has been allocated. A smaller number of blocks requires more memory. 
Consequently, a trade off between memory and I/O requirements results 
from the choice for NBUF. The minimum memory requirements (for JM 
blocks) will appear on the printed edits. 

XNF This parameter is typically used as a normalization factor. For 
example, if the source distribution is per source particle, XNF can be 
used to obtain the absolute normalization if the total number of source 
particles is entered here. The meaning of the value of XNF is dependent 
on the parameter IZ3 and impacts additional input to GRTUNCL. 

ZPT and RPT If RPT=0, the source will be a point source located axially 
at ZPT. If RPT>0, the source will be a ring source located axially at 
ZPT. 

13$ Array A negative entry in the 13$ array replaces the following ISCT 
entries with successive ID's. Thus: 


13$ 13$ 

-101 101 

-101 is equivalent to 102 

-101 103 


14* Array The input of the 14* array is performed by subroutines which 
have certain restrictions in addition to those of normal FIDO input: 

a. The nuclide spaces are preset to 0.0, so that "E" or "FO" 
will have the effect of filling the remaining space with 0 . 0 , 
but "E" and "F" must not be used in the input for the last 
nuclide. 
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b. The 14* or 14** designation may precede each nuclide block, 
but is not required except in the first block. 

c. Entries, including operators such as "T", following the 
last data item for nuclides other than the last, and on the 
same card as the last item, will be ignored. 

d. The "T" which terminates this block must appear alone in 
column 3 of a separate card. 


7* Array The integration limits are assumed to be from -1 to 1 so 
_ 1 J“ , f(X)dX is assumed to be SffXJW,- where the W f 's are entered in the 6* 
array and the X/s are entered in the 7* array. 

8 $ Array The material zone numbers by interval are entered by IM 
entries by JM entries. For example, the material zone numbers are 
entered for the first axial interval, then the second axial interval, 
etc. 

9$ Array Negative numbers entered in this array indicates an 
anisotropic material and ISCT higher order moments must follow 
immediately on the cross-section unit. For example if a -1 and -7 are 
entered in this array for the first two material zones, and ISCT=5, 
GRTUNCL will expect to read the P 0 through P 5 components of the first 
material then the P 0 through P 5 components of the second material on the 
cross-section unit. 

10$, 11$, and 12* Arrays The cross section mixing table is used to 
combine elements into macroscopic mixtures. Experience will reveal that 
only the imagination limits its flexibility. As with DORT, the integers 
in the mixing table refer to a continuous array of MT cross section sets 
of which the first MCR+MTP are nuclide data read from card-image input 
and a library file, respectively. All of the sets beyond MCR+MTP are 
preset to zero before the mixing table is executed. In non-search 
problems where cross-section storage is difficult, i.e., large problems 
that do not involve material buckling or concentration searches, 
material spaces originally used for input nuclides can be reused for 
mixtures. While the general rules for creating mixtures are equally 
applicable for GIP, GRTUNCL, and DORT, it should be noted that reference 
to eigenvalue modification in the DORT mixing ti.ble description has no 
application to GRTUNCL mixing. The interpretation rules applicable to 
GRTUNCL are as follows: 


a. If the mixture number is N and the component number is 0, then 
the cross sections in mixture N will be multiplied by the 
number entered in the density column: 


Fixture n(new) * ^mixture n(old) * DENSITY 
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b. If the mixture number is N and the component number is M, then 
the cross sections in component M, multiplied by the density, 
will be added to the cross sections in mixture N: 

^MIXTURE N(NEU) “ ^MIXTURE N(OLD) + COMPONENT M * DENSITY 

Note: Either a mixture or a component may be made up of 

microscopic or macroscopic cross sections for a single 
isotope or mixture of isotopes. 

A sample mixing table showing the various options is given below. 


MIXTURE 
(10$ ARRAY) 


6 

6 

7 

7 

7 


COMPONENT 
(11$ ARRAY) 


1 

3 
2 

4 
0 


DENSITY 
(12* ARRAY) 


0.4 

0.5 

0.4 

0.5 

3.0 


The mixture table given above would do the following: 

(1) Add components 1 and 3 with densities 0.4 and 0.5, 
respectively, to form mixture 6: 

o 6 = o y * 0.4 + a 3 * 0.5 

(2) Add components 2 and 4 with densities 0.4 and 0.5, 
respectively, to form mixture 7: 

o 7 ■ o 2 * 0.4 + tx 4 * 0.5 

(3) Multiply mixture 7 by 3.0: o 7 * o 7 * 3.0 

10$ Array If the 10$ entry is tagged with a negative, the next ISCT 
components will be treated as P L components. For example: 


10 $ 

11 $ 

12 * 

(with ISCT - 3) 

-13 

1 

1.0 


1 be equivalent to 


10 $ 

11 $ 

12 * 

(with ISCT = 0) 

13 

1 

1.0 


14 

2 

1.0 


15 

3 

1.0 


16 

4 

1.0 
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13*, 14*, and 15* Arrays These arrays control the source description in 
GRTUNCL. If IZ3-0, the source is entered only as a function of energy 
in the 15* array and the 13* and 14* arrays are omitted. This would be 
indicative of an isotropically emitted source spectrum. If IZ3>0, then 
the direction cosines, f?, of the source are entered in the 13* array 
(IZ3 entries with negative ti's entered first), and the source shape f(» 7 ) 
is entered in the 14* array (IZ3 or IZ3*IGM entries depending on the 
value of XNF), and the energy dependence is entered in the 15* array 
(IGM entries). The units of the entries in the 14* array are 
particles/unit weight, i.e., 4**particles/steradian. Typically, if 
IZ3>0 and XNF=0, the 13* array would contain IZ3 entries, the 14* array 
would contain IZ3*IGM entries, and the 15* array would be filled with 
IGM ones. 


3.3.1 Adjoint Reordering Example 

A three-group example showing the relationship between a forward and 
adjoint cross-section set is shown below. In this example, there is no 
upscatter, one activation cross section, IHT = 4, IHS = 5, and IHM = 7. 


Direct 

Adjoint 

* F (1) 

* F (3) 

**(D 

**(3) 

w (1) 

i/* (3) 

* T (D 

* T (3) 

*(1-1) 

*(3-3) 

0 

0 

0 

0 

* F ( 2) 

* F (2) 

**( 2) 

**(2) 

** (2) 

** (2) 

* T ( 2) 

* T ( 2) 

*(2-2) 

*(2-2) 

*d-2) 

*(2-3) 

0 

0 

* F (3) 

* F (D 

**(3) 

**(1) 

v* (3) 

v* (1) 

* T (3) 

* T (D 

*(3-3) 

*(1-D 

*(2-3) 

*d-2) 

*(1-3) 

*d-3) 
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3.4 INPUT LIBRARY FORMAT 


GRTUNCL inputs two different types of cross section files depending on 
the value of IDAT1. If IDAT1=0 or 1, the ACL1 4 prepared input library 
format is expected. If IDAT1=2, the GIP formatted library format (see 
Section 3.4.3) is expected. 


3.4.1 ACL1 Formatted Cross-section Input File 

If IDAT1=0 or 1, the ACL1 prepared input library format from which MTP 
nuclides are taken is defined in the following manner: 


ALC Cross Section Library Format 


£****************************************************************** 
C PROPOSED 19 MAY 80 

C 

CF ALC 

CE TRANSPORT CODE CROSS SECTION DATA 

C 


C 

CD THE TERMINATION RECORD DEFINES THE LENGTH OF THE 

CD DATA SET AND THE NUMBER OF NUCLIDES 

C 

CD THE ID VALUES MUST BE IN ASCENDING ORDER 

C 

C-------- 

CS FILE STRUCTURE 

C 

CS RECORD TYPE PRESENT IF 

CS . 

CS **************** ( RE p EAT FOR ALL NUCLIDES) 

CS * CONTRAL DATA FOA A NUCLIDE ALWAYS 

CS * CROSS SECTION DATA FOR A NUCLIDE ALWAYS 

05 **************** 

C 

CS TERMINATION ALWAYS 

C 

C.-.-.-. 

c 

c 

C. 

CR CONTROL DATA FOR A NUCLIDE 

C 

CL NOG,NCTL,NCC,NCID,(NAME(I),1=1,12) 

C 

CW 16=NUMBER OF WORDS 

C 
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CD NOG NUMBER OF ENERGY GROUPS FOR THIS SET 

CD NCTL LENGTH OF CROSS SECTION TABLE FOR THIS SET 

CD NCC -0 SET WAS ADDED TO LIBRARY 

CD =2 SET REPLACED AND EXISTING SET 


CD 

NCID 

IDENTIFICATION NUMBER 

CD 

C 

c. 

NAME 

ARBITRARY DESCRIPTION, A4 FORMAT 


C 

C 


c. 

CR 

CROSS 

SECTIONS FOR A NUCLIDE 


CL 

((CRX(IH,IG). 

,IH=1,NCTL),IG-1,NOG) 


CW 

r 

NCTL*NOG=NUMBER OF WORDS 


L 

CD 

CD 

CRX 

CROSS SECTION DATA ORDERED 

AS PER SECTION 2.4.1 

CD 

NCTL 

AS SPECIFIED BY PREVIOUS 

RECORD 

CD 

NOG 

AS SPECIFIED BY PREVIOUS 

RECORD 


C 

C 

C 

C 

C- 


CR 

TERMINATION 


CL 

NOG,NCTL,NCC,NCID,(NAME(I), 1 

[=1,12) 

CW 

16=NUMBER OF WORDS 


CD 

NCC 7, ALWAYS 


CD 

C 

c. 

OTHER ITEMS ARBITRARY 


! ANISN 

Nuclide Format Cross-section 

File 


In a normal GRTUNCL problem, cross sections are read from card input 
and/or from an external data set in nuclide-organized format, i.e., all 
the cross sections for one group of one nuclide, followed by other 
groups for that nuclide, and finally followed by data for other 
nuclides. Within a group, GRTUNCL expects the ordering of data in the 
cross section table in the following format: 
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Table Position Entry 


Cross Section Type 


1 

o’(9) 

First activation cross section 
(if any) 

IHT-3 

o l (9) 

Last activation cross section 
(if any) 

IHT-2 

o A ( g) 

Absorption 

IHT-1 

«/a F (g) 

Neutron Production 

IHT 

<r T (g) 

Total removal 

IHT+1 

ff TUS (g) 

Total upscatter cross section from 
group g (omit this entry if NUS=0) 

IHS-NUS 

<r(g+NUS-*g) 

Scattering from group g+NUS to g 


IHS-1 

a(g+l-g) 

Scattering from group g+1 to g 

IHS 

*(g-g) 

Scattering from group g to g 

IHS+1 

ff(g-i-g) 

Scattering from group g-1 to g 

IHM 

(r(g-NDS-g) 

Scattering from group g-NDS t o g 


From this, it can be seen that: 

NUS = IHS-IHT-2 = number of upscatter groups, if greater than 0, 
NDS = IHM-IHS = number of dovmscatter groups, 

L = IHT-3 = number of activation cross sections. 

Special illustrations of interest are: 
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IHM = IGM + 3 
IHS = 4 
IHT = 3 


h Full downscatter; no upscatter; 
no activation cross section 


and, 


IHM = IGM + 5 + NUS 
IHS = 6 + NUS 
IHT = 4 


Full downscatter; NUS upscatter; 
— room for an activation cross 
section in position 1. 


Thus the parameters IHT, IHS, and IHM completely describe the format of 
the cross sections. If there are no activity cross sections, IHT=3. If 
there is no upscatter IHS ■ IHT + 1. If there is no downscatter IHM = 
IHS (i.e., a one group problem). If there is upscatter, GRTUNCL will 
compute a total upscatter cross section for each group of each material 
and place that cross section in position IHT + 1. The activity cross 
sections are only used for activity calculations and not used in the 
transport process itself. 


3.4.3 GIP Formatted Cross-section Input File 

If IDAT1=2. GRTUNCL expects to read a GIP formatted library on logical 
unit four. Also, if IDAT1=0 or 1, GRTUNCL will create a GIP formatted 
cross-section file. The GIP input file is group-ordered for transport 
codes and this format is compatible with both ANISN, GRTUNCL, and DORT 
requirements. The groups are normally ordered from high to low neutron 
energy, then from high to low photon energy, if any photon groups are 
present. 


GIP Cross Section Library Format 


CR 

C 

PRINCIPAL 

CL 

C 

(PCSD(IH),IH=1,] 

CW 

C 

NUMBER OF WORDS 

CD 

PCSD(IH) 1 


PRINCIPAL CROSS SECTION LABELS - (A6) 
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C. 

c 

CR NUCLIDE IDENTIFICATION 

C 

CL (NUC(MT),MT=1,MTM) 

C 

CW NUMBER OF WORDS = MULT*MTM 

C 

CD NUC(MT) NUCLIDE LABELS - (A6) 

C 

C.-. 


C- 

c 

CR 

C 

CL 

C 

CW 

C 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

C 

C- 


CROSS SECTION DATA 
((SIG(IH,MT),IH=1,IHP),MT=1,MTM) 
NUMBER OF WORDS = IHP*MTM 


SIG(IH,MT) 

1 TO IHT-5 
IHT-4 
IHT-3 
IHT-2 
IHT-1 
IHT-0 
IHT+1 


CROSS SECTION DATA BY TABLE POSITION, 

THEN BY NUCLIDE. TABLE POSITIONS CONTAIN: 
ARBITRARY DATA, SPECIFIED BY USER, OR ABSENT 
FISSION YIELD FRACTION (RECOMMENDED) 

FISSION CROSS SECTION (RECOMMENDED) 
ABSORPTION CROSS SECTION 
NEUTRON PRODUCTION CROSS SECTION 
TOTAL CROSS SECTION 

UPSCATTER FROM GROUP IG+(IHS-1 -IHT) TO IG 


IHS-1 UPSCATTER FROM GROUP IG+1 TO IG 
IHS SELF SCATTER FOR GROUP IG 
IHT+1 DOWNSCATTER FROM GROUP IG-1 TO IG 


IHM DOWNSCATTER FROM GROUP IG+IHS-IHM TO IG 
IHM+1 TOTAL SCATTER FROM GROUP G TO ALL GROUPS 

(PRESENT ONLY IF IHS IS GREATER THAN IHT+1) 

IHS MAY BE IHT+1 IF UPSCATTER IS ABSENT. 
TRANSFERS FROM GROUPS LESS THAN 1 OR GREATER 
THAN IGM ARE ZERO. POSITIONS LESS THAN OR 
EQUAL TO IHT ARE ZERO FOR PL COMPONENTS 
OTHER THAN THE OTH. 

EACH COMPONENT OF A PL SET IS TREATED AS A 
SEPERATE NUCLIDE THUS, M SETS WOULD 
COMPRISE M*NQUAD+M NUCLIDES 
IHP EQUALS IHM UNLESS IHS.GT.IHT+1, THEN IHM+1 
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3.5 GRTUNCL OUTPUT FILE 

GRTUNCL can output either a DOT III or DOT IV formatted file depending 
on the value of IMODE. Current applications only use the DOT IV format 
- referred to as the VARSOR format in this document. Both the first 
collision source and uncollided fluence moment data are written in this 
format. The VARSOR format is defined in the following manner: 

C -VS0R0010 

C VS0R0020 

G***************************************************************y$0 R 0Q30 

C REVISED 10 NOV 76 -VS0R0040 

C -VSOR0050 

CF VARSOR -VSOR0060 

CE VARIABLE MESH SOURCE MOMENT DATA -VS0R0070 

C -VSOR0080 

G***************************************************************y$0R0090 
C VS0R0100 

CD ORDER OF GROUPS IS BY DECREASING ENERGY VS0R0110 

CD I IS THE FIRST-DIMENSION INDEX VSOR0120 

CD J IS THE SECOND-DIMENSION INDEX VSOR0130 

CD JM=1 FOR 1-DIMENSIONAL GEOMETRY VSOR0140 

CD IF ISOP.GT.O, SOURCE IS FIRST-COLLISION TYPE VS0R0150 

C VS0R0160 

C.-..VSOR0170 

CS FILE STRUCTURE -VSOR0180 

CS -VSOR0190 

CS RECORD TYPE PRESENT IF -VS0R0200 

CS .VS0R0210 

CS FILE IDENTIFICATION ALWAYS -VSOR0220 

CS FILE LABEL ALWAYS -VSOR0230 

CS FILE CONTROL ALWAYS -VS0R0240 

CS FILE INTEGER PARAMETERS ALWAYS -VSOR0250 

CS -VS0R0260 

cs ************** (REPEAT 0VER ALL GROUPS) -VSOR0270 

CS * SOURCE MOMENTS ALWAYS -VSOR0280 

cs **************** -VS0R0290 

C -VSOR0300 

cs **************( REPEAT OVER ALL GROUPS) -VS0R0310 

CS * SCALAR UNCOLLIDED FLUX ISOP.GT.O -VSOR0320 

cs **************** -VSOR0330 

C -VSORO340 

C.VSOR0350 

C VSOR0360 

C VSOR0370 

C--.....VS0R0380 

CR FILE IDENTIFICATION -VSOR0390 

C -VSOR0400 

CL HNAME,(HUSE(I),1=1,2),IVERS -VS0R0410 

C -VS0R0420 

CW 1+3*MULT=NUMBER OF WORDS -VSOR0430 

C -VS0R0440 
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CO HNAME 
CD HUSE(I) 
CD IVERS 
CD MULT 
CD 
CD 
C 


c 

c 

C-- 

c 

CR 

FILE LABEL 


V 

CL 

DATE,USER,CHARGE,CASE,TIME,(TITL(I),1=1,12) 


CW 

17*MULT=NUMBER OF WORDS 


CD 

DATE 

AS PROVIDED BY TIMER OPTION 4 - 

(A6) 

CD 

USER 

AS PROVIDED BY TIMER OPTION 5 - 

(A6) 

CD 

CHARGE 

AS PROVIDED BY TIMER OPTION 6 - 

(A6) 

CD 

CASE 

AS PROVIDED BY TIMER OPTION 7 - 

(A6) 

CD 

TIME 

AS PROVIDED BY TIMER OPTION 8 - 

(A6) 

CD 

C 

TITL(I) 

TITLE PROVIDED BY USER 

(A6) 

C 

C 

C~ 

CR 

FILE 

CONTROL 


CD 

IGM,NEUT,JM, 

LM,IMA,MMA,ISM,IMSISM,ISOP,(IDUM(N),N 

1=1,16) 

CW 

r 

25=NUMBER 

OF WORDS 


L 

CD 

IGM 

NUMBER OF ENERGY GROUPS 


CD 

NEUT 

LAST NEUTRON GROUP 


CD 


(IGM IF ALL NEUTRONS, 0 IF ALL GAMMA) 

CD 

JM 

NUMBER OF SECOND-DIMENSION (J) INTERVALS 

CD 

LM 

MAXIMUM LENGTH OF MOMENT EXPANSION 

CD 

IMA 

MAXIMUM NUMBER OF FIRST-DIMENSION 

INTERVALS 

CD 

MMA 

NUMBER OF BOUNDARY DIRECTIONS 


CD 

ISM 

NUMBER OF I-BOUNDARY SETS 


CD 

IMSISM 

TOTAL NUMBER OF I-INTERVALS, ALL I 

-SETS 

CD 

I SOP 

UNCOLLIDED FLUX FLAG 


CD 


0 - NO UNCOLLIDED FLUX RECORDS 

PRESENT 

CD 


1 - UNCOLLIDED FLUX RECORDS PRESENT 

CD 

C 

r.. 

IDUM(I) 

ARRAY SET TO 0 



C 


HOLLERITH FILE NAME - VARSOR - (A6) 
HOLLERITH USER IDENTIFICATION - (A6) 
FILE VERSION NUMBER 
DOUBLE PRECISION PARAMETER 

1- A6 WORD IS SINGLE WORD 

2- A6 WORD IS DOUBLE PRECISION WORD 


-VS0R0450 

-VS0R0460 

-VSOR0470 

-VS0R0480 

-VSOR0490 

-VSOR0500 

-VSOR0510 

-VSOR0520 

VSORO530 

VSOR0540 

-VSOR5550 

-VSOR0560 

-VSOR0570 

-VSOR0580 

-VSOR0590 

-VS0R0600 

-VS0R0610 

-VS0R0620 

-VS0R0630 

-VSOR0640 

-VSORO650 

-VS0R0660 

-VSOR0670 

-VSOR0680 

-VS0R0690 

-VS0R0700 

VS0R0710 

VSOR0720 

-VS0R0730 

VS0R0740 

-VSOR0750 

-VSOR0760 

-VSOR0770 

-VSOR0780 

-VSOR0790 

-VSOR0800 

-VS0R0810 

-VS0R0820 

-VS0R0830 

-VSOR0840 

-VSOR0850 

-VS0R0860 

-VSOR0870 

-VSOR0880 

-VSOR0890 

-VSOR0900 

-VS0R0910 

-VS0R0920 

-VSOR0930 

-VS0R0940 

VSOR0950 
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C VSOR0960 

C.VSOR0970 

CR FILE INTEGER PARAMETERS -VS0R0980 

C -VS0R0990 

CL (LMBIG(IG),IG=1,IGM), -VS0R1000 

CL *(IMBIS(IS),IS=1, ISM),(ISET(J),J=1,JM) -VSORIOIO 

C -VSOR102O 

CW IGM+ISM+JM=NUMBER OF WORDS -VS0R1030 

C -VSOR1040 

CD LMBIG(IG) LENGTH OF MOMENT EXPANSION FOR GROUP IG -VSOR1050 

CD IMBIS(IS) NUMBER OF INTERVALS IN ISET IS -VSOR1060 

CD ISET(J) I-SET ASSIGNED TO INTERVAL J -VSOR1070 

C -VSOR1080 

C.VSOR1090 

C VSORllOO 

C VSORlllO 

C.-.VSOR1120 

CR SOURCE MOMENTS VSOR1130 

C -VS0R1140 

CL ((SORM(I,L),1=1,IMS),L*1,LMS) -VSOR1150 

C -VSOR1160 

CW IMS*LMS=NUMBER OF WORDS -VS0R1170 

C -VS0R1180 

C DO 1 J=1,JM -VS0R1190 

C 1 READ(N) *LIST AS ABOVE* -VSOR1200 

C -VSOR1210 

CD SORM SOURCE BY INTERVAL AND MOMENT INDEX -VSOR1220 

CD IMS IMBIS(IS) FOR IS CORRESPONDING TO J -VSOR1230 

CD LMS LMBIG(IG) -VS0R1240 

C -VS0R1250 

C.VS0R1260 

C VSOR1270 

C VS0R1280 

C.VSOR1290 

CR SCALAR UNCOLLIDED FLUX -VS0R1300 

C -VS0R1310 

CL (FLUM(1),1=1,IMS) -VS0R1320 

C -VS0R1330 

CW IMS=NUMBER OF WORDS -VSOR1340 

C -VSOR1350 

C DO 1 J=1,JM -VSOR1360 

C 1 READ(N) *LIST AS ABOVE* -VS0R1370 

C -VSOR1380 

CD FLUX UNCOLLIDED FLUX BY INTERVAL -VSOR1390 

C -VS0R1400 

C--.VSOR1410 

C VSOR1420 

C VSOR1430 

C VS0R1440 

C <SOR1450 

C END VS0R1460 
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3.6 LOGICAL UNIT REQUIREMENTS 


Below is a listing of the files required to execute a GRTUNCL case along 
with the default values used in the code. In setting up a GRTUNCL case, 
efforts must be made for these units to be available. 


1 . 

Logical 

Unit 

1 - 

2. 

Logical 

Unit 

2 - 

3. 

Logical 

Unit 

4 - 

5. 

Logical 

Unit 

NPSO - 

6. 

Logical 

Unit 

NFLSV - 

7. 

Logical 

Unit NTNPR - 

8 . 

Logical 

Unit 

91 - 

9. 

Logical 

Unit 

92 - 

10. 

Logical 

Unit 

6 - 

11. 

Logical 

Unit 

5 - 


SCRATCH, (holds group independent cross 
sections from input if logical unit 4 is 
not a group-independent (GIP) tape 
SCRATCH, (holds GIP cross sections after 
mixing) 

ANISN/GIP formatted Cross-section Library 
Input depending on value for IDAT1 
(required if MTP>0) 

First Collision Source Output 

Uncollided Flux Moments Output 

Large Scale Print Output 

SCRATCH 

SCRATCH 

Printed Output 

Card Input 


3.7 PROGRAMMER INFORMATION 


3.7.1 Inter-machine Adaptability 

The GRTUNCL code is intended to be easily adaptable to any type of 
sophisticated computer, and yet to take advantage of certain localized 
structural features which may be machine-dependent. 

In general, the guidelines of ANS-STD.3-1971 6 are followed. This 
requires general adherence to a simple, standard FORTRAN language except 
where deviations provide important improvements in capability and can be 
documented. In addition, machine-dependent features have been kept 
localzed and have not been included in the subroutines which perform 
actual computation. 

The recommended procedures of the Committee on Computer Code 
Coord.nation (CCCC) 5,7 have been followed where practical. Compliance 
with these standards has been incomplete where cost was prohibitive, the 
nature of the codes did not allow it, or the expected level of 
performance could not be obtained in that fashion. 

Where minor or certain machine-dependent features are required, 
alternative features are enclosed in pairs of 3-character "language 
flags." The alternative statements remain in the source program, with 
inappropriate sections transformed into comment statements. If the code 
is set up for IBM operation, for example, it might contain: 
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CIB 

ENTRY IBCDC(H,E,L,P) 

CIB 


CDC 


C 

ENTRY IBCDC 

CDC 



The corresponding CDC configuration would be: 


CIB 

C ENTRY IBCDC(H,E,L,P) 

CIB 

CDC 

ENTRY IBCDC 
CDC 


All versions of a given procedure are thus available for inspection by 
all users. The selection of options is made by a computer program at 
distribution time. A listing of machine-dependent sections can also be 
prepared in that process. 

The language flags achieve the major objective of having a single, 
unified source for each program which is maintained for all users. With 
these provisions, the basic FORTRAN programs are operable on IBM, CDC, 
UNIVAC, CRAY, Amdahl, and other computers, except that system-dependent 
service routines as specified by CCCC must be provided. 

Optional packages and procedures which provide enhanced convenience are 
also available. The optional run-time storage allocation requires 
system-dependent routines. Instructions for installing these options 
are distributed with the source programs. All known users at this time 
use all of the optional enhancements available to them. Even so, the 
basic operation with FORTRAN routines plus the CCCC package remains 
available if needed. 


3.7.2 Service Subroutines 

Certain standard service subroutines are specified by the CCCC for use 
in reactor physics codes. The service routines used in these codes 
include: 


TIMER Provides timing and job identification data 


REED 

RITE 




Provide sequential access to data files 
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DRED 


DRIT 

DOPC 


IF 


Provide random access to data files 


Provides initiating, closing, and certain repositioning 
of data files 


CRED 

CRIT 


IF 


Provide block transfer of data between fast and slow 
memory. 


Many of these subroutines also call other subroutines. Many are 
entirely system dependent. Each configuration to be distributed 
contains an appropriate set of service subroutines, insofar as possible. 
The realities of computing environments may require local modification 
or substitution. The specifications given in Reference 4, together with 
extensive in-stream comments, provide guides for such modification. 
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3.9 SAMPLE PROBLEM 

The sample problem demonstrates the calculation of the air-over-ground 
environment for the two-meter box experiments. 8 * 9 Figure 3-1 shows a 
simple diagram of the geometry modeled in the GRTUNCL input. A complete 
listing of the input cards for the sample problem is given in Figure 
3-2, and some selected output is shown in Figure 3-3. 

In viewing Figure 3-2, the input illustrates; 8 material zones (IZM), 66 
radial intervals (IM), 84 axial intervals (JM), 69 energy groups (IGM), 
a cross-section table length (IHM) of 72, no upscatter (IHT=3, and 
IHS=4), and a mixing table length (MS) of 0. No material data was read 
in from cards (MCR=0) and 54 materials (9 different mixtures, each with 
a P 0 through P 5 component) were read in from a GIP tape (MTP=54, and 
IDAT1=2). Thus, the total number of materials (MT) was 54, and no print 
was requested for the printed output (IPRTC=1). A DOT IV formatted first 
collision source file was output (IM0DE=4) on logical unit 23 (NPSO=23) 
and the first five groups of uncollided fluence were printed (IPRTF=5). 
The input source was a point source located 16.143 meters above the 
7=0.0 plane (ZPT), at r=0.0 (RPT), and was entered as an angular/energy 
dependent source with 40 directions specified (IZ3=40). Eighteen 
materials (3 mixtures) were used in the calculation which correspond to 
the first eighteen materials output in the GIP sample problem shown in 
the last section (ground, borated concrete, and air). The three 
mixtures and eight material zones illustrates the multiple zone option 
per material eluded to in Section 3.3. All comments after the slash (/) 
are ignored in FIDO input and are only useful for quick identification 
of the input parameters. The GRTUNCL sample input in Figure 3-2 shows 
an angular and energy dependent source distribution with units 
4»r*particles/steradian per leaking neutron. The energy dependence (15* 
array) is already represented in the shape function (14* array) and is 
therefore entered as ones. 

The selected GRTUNCL output shown in Figure 3-3 first illustrates the 
input parameters read in the first data block, followed by the blocking 
and memory requirements to run this particular GRTUNCL case with this 
order of blocking, and an indication that the second data block has been 
successfully read. The output then produces the zone number by interval 
map, the material number by interval map, and a table listing the input 
in the 2*, 3*, 4*, 6*, 7*, 9*, 10$, 11$, and 12* arrays. This output is 
useful for checking the input to make sure there are no errors. This 
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table is followed by a listing of the fission spectrum (1* array), then 
the source distribution (13*, 14*, and 15* arrays). The output then 
shows some messages informing the user of the completion of the 
calculations (by block) and the time required to perform each block. 
After the calculation is complete (all blocks calculated), GRTUNCL 
prints the balance table. This table is useful for checking the source 
normalization, and leakages for the system. Errors in the model, cross 
sections, or mesh should make themselves evident in this table. 

Finally, the output lists the fission density by interval and the first 
collision source by interval (for the number of groups specified in the 
input). 
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Axial Dimension (m) 
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Figure 3-1. Schematic Diagram of the Air-Over-Ground 
Geometry Model Used in the GRTUNCL Analysis. 





' aprf air-over-ground using new saic 1989 angle-energy leakage source 
' 16.143m source height, simple topography out to 400m test site 
' 34% ground moisture, 10/24/89(a) air parameters 


1$$ 0 5 8 66 84 
69 3 4 72 0 
0 54 54 2 0 
4 1 0 23 5 
0 40 0 300 0 


/ ith,isct,izm,im,jm 
/ igm,iht,ihs,ihm,ms 
/ mcr,mtp,mt,idatl,noa 
/ imode,iprtc,nflsv,npso,iprtf 
/ iprts,iz3,idfac,nbuf,ntnpr 


2** 0 1614.3 0 / xnf,zpt,rpt 

t 

1** fO /fission spectrum 


2** /axii (jm+1) 

-80 -75 -70 -65 -60 -55 -50 -45 -40 -35 -30 -25 -20 -15 -10 -5 -2.5 
-1 0 50 150 250 489 749 949 1102 1220 1311 1381 1435 1476 1508 1532 
1551 1566 1577 1585 1592 1597 1601 1604 1607 1608.5 1610 1614.3 1619 
1620.5 1622 1624 1627 1631 1636 1643 1651 1662 1577 1696 1720 1752 
1793 1847 1917 2008 2126 2279 2479 2739 3076 3514 4085 4826 5789 7042 
8670 10787 13000 16000 19000 22000 25000 28000 31000 34000 37000 40000 


4** /radii (im+1) 

0 4.6 6 7.8 10 13 17 22 29 37 48 63 82 106 138 179 233 303 394 512 665 
865 1125 1462 1900 2471 3212 4175 5428 7056 9000 11000 13000 15000 
16500 17500 19000 21000 23000 25000 27000 28500 29500 30500 31500 

33000 35000 37000 38500 39500 40500 41500 43000 45000 47000 49000 

51000 54000 57000 60000 63000 66000 69000 72000 75000 78000 80000 


8$$ / zone numbers by interval 

' zones 1, 2, & 3-aprf ground, 4 & 5-borated concrete, 6, 7, & 8-air 
66rl 8q66 /j-ints 1-9 
19r5 47rl 2q66 /j-ints 10-12 

19r4 3r3 8rl 3r3 3r2 5r3 3r2 4r3 3r2 3 14rl 5q66 /j-ints 13-18 
33r7 3r6 5r7 3r6 4r7 3r6 7 14r8 3q66 /j-ints 19-22 
52r7 14r8 3q66 /j-ints 23-26 
66r8 71q66 /j-ints 27-98 

9$$ 3r-l 2r-7 3r-13 / mat by zone 


Figure 3-2. Sample GRTUNCL Input for the 
Two-Meter Box Air-Over-Ground Analysis. 
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13** / angular directions of source (-1. is down +1. is up) 

-.99794 -.98973 -.97337 -.94900 -.91680 -.88117 -.84355 -.80122 

-.75441 -.70316 -.64809 -.58978 -.52822 -.46383 -.39684 -.32761 

-.25670 -.18443 -.11105 -.03705 +.03705 +.11105 +.18443 +.25670 

+.32761 +.39684 +.46383 +.52822 +.58978 +.64809 +.70316 +.75441 

+.80122 +.84355 +.88117 +.91680 +.94900 +.97337 +.98973 +.99794 


14** 

' aprf angular leakage source, s(angle,energy)/40 angles/dabl69/(3-l-90) 
' units are 4*pi*particles/steradian per leaking neutron 
1.4le-06 1.43e-06 1.65e-06 1.85e-06 2.02e-06 2.37e-06 2.49e-06 2.60e-06 

2.67e-06 2.74e-06 2.70e-06 2.75e-06 2.81e-06 2.86e-06 2.91e-06 3.00e-06 

3.03e-06 3.05e-06 3.07e-06 3.07e-06 3.07e-06 3.07e-06 3.07e-06 3.07e-06 


[IZ3*IGM entries] 


3.05e-07 
2.00e-07 
2. lle-07 


2.88e-07 
1.99e-07 
2.lle-07 


2.60e-07 

2.02e-07 

2.04e-07 


2.21e-07 
2.04e-07 
1.34e-07 


1.88e-07 
2.04e-07 
9.76e-08 


1.88e-07 

2.02e-07 

8.75e-08 


1.92e-07 

2.02e-07 

7.01e-08 


1.94e-07 
2.09e-07 
6.14e-08 


15** / source multiplier for each energy group 

69rl.0 
t 


Figure 3-2. 'continued) 
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Sample GRTUNCL Output for the Two-Meter Box Air-Over-Ground Analysis. 
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Figure 3-3. (continued) 
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Figure 3-3. (continued) 
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Figure 3-3. (continued) 
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Figure 3-3. (continued) 
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Figure 3-3. 
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Figure 3-3. (continued) 
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igure 3-3. (continued) 
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Figure 3-3. (continued) 
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Figure 3-3. (continued) 



















































































Figure 3-3. (continued) 






















































































































































































4.0 DORT: A TWO-DIMENSIONAL DISCRETE ORDINATES TRANSPORT CODE 


4.1 INTRODUCTION TO DORT 


4.1.1 Background 

A summary of the mathematical basis for the method of discrete ordinates 
as we use in DORT 1 today is given by Lathrop and Brinkley. 2 Mynatt et 
al. 3 give a full mathematical development, applications information, and 
comparisons of results with experiments. Carlson and Lathrop 4 give a 
full development of the method with emphasis on physical principles and 
evaluation techniques. They also give an annotated bibliography of 
early work in the field including a very early report by Carlson in 
1953. 5 A 1958 paper by Carlson and Bell 6 may have been the first 
widely-distributed description of the "discrete S n method" as they 
called it. In 1960, Carlson, Lee, and Worlton published a description 
of the DSN code, which used their method. 7 Davison, 8 in 1957, gave a 
thorough review of fundamental discrete-ordinates theory, and a review 
of Carlson's work in an Appendix. Davison acknowledges a 1953 book by 
Chandrasekhar 9 as the origin of the method as he presents it, and a 1943 
paper by Wick 10 as the origin of the basic idea. 

In this section, we follow the notation of Lathrop and Brinkley to some 
extent. Their TWOTRAN II code was useful to us in constructing DOT 4 11 , 
and it may be worthwhile to comment on the relationship between TWOTRAN 
and DOT. The earlier versions of DOT actually descended from the LASL 
codes DTK and DDK, and from the LASL/UNC code DDF/2DF. A version of DOT 
was distributed informally in 1966, although formal publication was not 
made until the DOT III version in 1973. 12 Early versions of TWOTRAN were 
published in a 1968 GA report 13 and elsewhere. 

Descendants of both TWOTRAN and DOT remain in widespread use today, and 
their very different capabilities apparently justify this dual 
existence. Numerous other writings pertinent to DOT development appear 
in ANS Transactions and elsewhere. A reasonably complete bibliography 
of related material is give in Appendix C of Reference 14. 


4.1.2 The Problem Solved 

DORT is primarily intended to solve large neutron and photon transport 
problems on a wide variety of computer types using the method of 
discrete ordinates. Most DORT problems deal with the calculation of 


*W. A. Rhoades and R. L. Childs, "The DORT Two-Dimensional Discrete 
Ordinates Transport Code," Nuclear Science & Engineering 99, 1, 
pp. 88-89, (May 1988). 


4-1 






radiation resulting from a given extraneous source, i.e., "fixed-source" 
problems. If such a system has fissile material and is subcritical, the 
multiplication can be calculated. The code also has K eff capability and 
various types of searches. A diffusion theory section is valuable for 
initiating such problems or as an alternative to the primary discrete 
ordinates section where applicable. 

Special remeshing features allow the number of first-dimension (i) mesh 
intervals to vary with the second dimension (j) index. An arbitrary 
coarse mesh can be used for fluence acceleration, saving memory and CPU 
time. The directional quadrature set can be chosen from an arbitrary 
number of input sets. The choice can vary with spatial option and with 
energy group. The flexibility has proven quite effective in 
concentrating CPU effort in areas needing attention, such as streaming 
gaps. Biased direction sets can be used when streaming is primarily in 
the upward/downward directions. 

A variety of options allow sources to be specified at internal or 
external boundaries, distributed by space and energy, or determined from 
an input fluence guess. "First-coilision-source" data, actually an 
analytical first-flight scattering source, can be accommodated. Output 
files for an "analytical-last-flight" integration can be obtained. 

These features provide increased accuracy when dealing with out-of¬ 
system or loca" zed sources or detector locations. 

A single output file contains both distributed fluence moments and 
boundary directional fluences, so that this file, plus the original 
input data, provide an "exact" restart. This allows a large problem to 
be solved in several computer runs without loss of efficiency. 

Both 1-D and 2-D geometries can be treated. Discrete ordinates 
geometries include 1-D plane or slab and 2-D XZ, R0, or RZ. The 
diffusion-theory section has triangular-mesh capability as well. A 
powerful slab reflection/transmission feature is available. A variety 
of acceleration options are available. Extensive use of input options 
and output edits give the user very direct control over the iteration 
process. While this places a burden of decision-making on him, it is 
essential to the solution of large and difficult problems. Default and 
recommended values assist the uninitiated in solving problems without 
much prior use of the code. 

Output source information to be used in coupling to other problems can 
be obtained. Typical applications include "bootstrapping," in which a 
very large problem is solved in several segments; core-vessel 
combinations, in which a core is solved in an eigenvalue calculation and 
then represented by internal boundary conditions in a fixed-source 
vessel calculation; coupled discrete-ordinates-Monte Carlo calculations; 
and RZ air-ground calculations coupled to 3-D discrete ordinates 
analysis of local features. 
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Portions of this section were extracted from Reference 14 for 
completeness. The interested user should consult that document for a 
full description of the DORT code. An extensive problem set and a 
tutorial description is available to demonstrate the various features 
and problem setup techniques. 


4.1.3 Code Structure 

This code and its predecessors have been adapted to a large variety of 
computers from the IBM 7090 to modern Crays. In order to maintain 
compatibility without undue confusion, a "unified source file" concept 
is used; only a single version of the basic code is kept, with final 
configuration details supplied when a file is prepared for compilation. 
Standard language and programming practices are used throughout the main 
body of the code. In-stream "language flags" make minor language 
adjustments as required when a specific configuration is tailored. 
Interchangeable interface packages provide coupling with system- 
dependent library features. 

On all computers, direct (random) access scratch files are used as an 
extension of memory. Data are retrieved from the files into large 
buffers controlled by the I/O manager routine. The working program then 
uses and updates the buffers before their return to the scratch files. 
Since communication with the buffers is processed entirely through the 
interface package, the buffers can be located in a large cache memory 
such as the LCM on the late CDC 7600 or, presumably, on a Cray SSD 
device. The code attempts to make the maximum use of available memory 
in order to minimize I/O costs and delays. Reversion to more extensive 
use of scratch-files is automatic when required. 

The flexibility provided, together with the close control of the 
solution process, requires an extensive and complicated input data list. 
Most of these data can be ignored for most problems. A diverse set of 
sample problems serves as a guide to actual requirements for practical 
problems. 


4.2 THEORETICAL BASIS 


4.2.1 The Integro-Differential Transport Equation 

The Boltzmann transport equation, as applied to static neutron and 
photon transport, 2 can be expressed: 
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(4-1) 


V • a^(r,E,fi) + <r T (r,E,Q) V>(r,E,a) = 

J J<T • foE.E'.fi.O') V> (r, E',0') dn' dE' 

+ ^ X (r,E) j J «/(r,E') <r F (r,E') V> (t.E'.fi') dQ' dE' + Q (r,E,Q) 


In this, da is a differential solid angle about the direction vector Q, 
dE is a differential energy about £, and r is a position vector with 
reference to an arbitrary origin. The directional fluence function, j, 
is defined such that the number of particles moving in volume dr about r 
with energies falling within dE and directions of motion within da will 
be ^dOdEdr. Also, o' and o T are macroscopic cross sections for total 
interaction and fission, respectively, and a * is the cross section for 
scattering from energy £' and direction O' to energy E and direction fl. 
The functions v and X represent the total fission yield of secondary 
particles and the corresponding energy distribution. Q represents an 
extraneous source, if any. 

Although the general Boltzmann equation includes time dependence, 
removal of that dependence in the static form presented here is an 
important simplification. Certain other simplifications will also be 
made later. As a practical matter, scattering is generally independent 
of initial direction, so that it can be expressed in terms of the single 
scattering angle: 


Ho - Q! • Q 


(4-2) 


rather than as a function of two direction vectors. Although some 
applications exist for the dependence of o T on 0, they are unusual, and 
this dependence is not allowed in DORT. A somewhat weaker justification 
exists for the removal of the dependence of X on space. In fact, if 
more than one fissile species exists in the system, and if the species 
do not always fission in the same proportion, X will depend on space. 
Nonetheless, the code does not presently allow such dependence. 


4.2.2 The Finite Difference Formulation 

The procedures for obtaining a finite-difference equation from Equation 
4-1 are discussed thoroughly in References 3 and 4, although the form 
presented here follows Reference 2: 
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(4-3) 


Wm j %l,j t m )} — N t _i j m 

+ Wm T m (]3 t j+ l N i>j+ l mg - B l j _iN i j_i mg ^ 

+ ~ ( Q "*+i N i,i,m+U ~ “™-i N i,j, m -\,g) 

+ a li,9 W "> V '>J N iJ.rn,g, = W m V tJ SiJ^g 


It can be shown that the formulation of Mynatt et al . 3 is equivalent to 
this. 

In this notation, subscripts i and j represent mesh intervals in the 
first and second space dimensions. The subscript m refers to the 
direction in a ordered set of directions along which fluence is to be 
evaluated. Subscripts such as ? + 1/2 refer to the interval boundaries, 
e.g., boundary 1 + 1/2 is the boundary separating interval i from 
interval i + 1. In the case of m, this is somewhat artificial, since 
each m represents a discrete direction with no defined sector of solid 
angle associated. In fact, directions represented by successive m ’s may 
not even be "adjacent" in direction space. Even so, the equation 
requires coupling between certain fluences having consecutive m values, 
and the coupling terms, a, will be defined in a consistent manner. 
Subscripts such as m + 1/2, then, merely denote artificial intermediate 
values. The subscript g refers to energy group. 

It may be noted at this point that obvious subscripts are frequently 
omitted in discrete-ordinates writings, e.g., the first term of Equation 
4-3 might later be written: 


(x, +i N i+i - A,.j 1 V,. t ) 


In practice, this approach is probably less confusing than the inclusion 
of long lists of redundant subscripts. 

In certain discussions, I and J are understood to be the upper limits of 
i and j. It may also be noted that space mesh positions are discussed 
such that boundaries having ? - 1/2, ?' - / + 1/2, j - 1/2, and j = J + 
1/2 are spoken of as "left," "right," "bottom," and "top," boundaries, 
regardless of geometry. 
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The ordered set of directions of particle travel are characterized by 
their direction cosines, (/i m , Z m , ri m ). In all geometries, p m is the 
cosine of the angle which the direction of travel makes with the first- 
dimension axis, i.e., X or R, while r\ m is the cosine of the angle with 
the Z axis (Table 4-1). In each case, is the cosine with the 
remaining direction vector, either along the Y axis, or in the azimuthal 
direction in the case of R9. 

Due to symmetry, no flow is associated with one of the direction 
cosines, either tj or Z. Thus, r is used to represent either Z or tj, as 
shown in Table 4-1. Also, <*; is allowed to represent the remaining 
cosine. The parameters A and B are cell areas perpendicular to the axes 
from which /i and r are measured. 

Each direction has an associated weight, h/ m . Quantities involving 
integrals over all directions are to be evaluated by sums with h/ m as the 
weighting function. N represents the directional fluence, rf>, in 
direction, /», although it will be seen that N has different units. V 
and 5 are the volume and source in a given mesh cell, and a T is the 
macroscopic total cross section. It is assumed that S includes 
extraneous sources, scattering from other energy groups, scattering at 
the given energy from other directions, fission, and any other particle 
sources, e.g., (n,2n). 


Table 4-1. Directional Properties of the Geometries. 






1-D 



2-D 


Geometry 



XZ 

RZ 

Re 

xz 

RZ 

Re 

Dimensions Solved 



X 

R 

R 

x,z 

R,Z 

R,e 

Dimension Corresponding 

to 

A 

X 

R 

R 

X 

R 

R 

Dimension Corresponding 

to 


Y 

e 

e 

Y 

e 

e 

Dimension Corresponding 

to 

»? 

Z 

z 

z 

z 

z 

z 

Cosine Corresponding to 

r 


Tj 

n 

z 

V 

n 

z 

Cosine Corresponding to 



Z 

Z 

V 

Z 

Z 

n 

Dimension Perpendicular 

to 

A 

X 

R 

R 

X 

R 

R 

Dimension Perpendicular 

to 

B 

Z 

Z 

e 

z 

Z 

e 







As indicated in Table 4-1, the 1-D geometries evaluate fluence 
dependence in only the first dimension. In such cases, the usual 
evaluation procedures are used, but B*0. 

It can be observed that, except for the terms in a, Equation 4-1 is 
simply a statement of particle balance for a given cell, and could have 
been written down directly. From this, it is evident that the discrete- 
ordinates equation conserves particles inherently, if the a terms are 
defined such as to conserve. 

The terms in a are effective only in curved geometry, RZ or R0. Their 
physical meaning can be made apparent by considering a particle moving 
inward along a path which will take it closer to the axis of a cylinder. 
While if is a constant for such a path, p constantly increases from 
negative, through zero, and ultimately toward p - +1 as the particle 
moves away from the centerline. Thus, the discrete-ordinates equation 
must show a comparable flow toward directions of larger p for comparable 
particle paths. 

In order to allow manageable evaluation of the terms in a, an ordering 
discipline is imposed upon the directions represented by m. Since the a 
terms must couple directions of like tj, directions of like ij are grouped 
contiguously, in order of increasing p. The groups of directions with 
like ij ("»j levels") are ordered such that all directions with »? < 0 
precede all directions with ij > 0. Thus, the a-flow, following an 
actual path inward and then outward, is always toward directions of 
increasing m within an ij level. It can also be seen that there must be 
no flow between ?j levels in order to be consistent with the physical 
model. 

The recursion relationship for the a's can be obtained at this point by 
observing that Equation 4-3 must be valid in a source-free region where 
N is uniform. Since no constraint may be placed upon (a T , A , B , or V, 
then it must follow that, for a given ij level: 


~ w m Pm = - <* m _i 


( 4 - 4 ) 


Since it is required that a coupling be only between directions within 
an ij level, then - 0 for the first direction of the level. It is 
essential that, for each level: 


]T W m Mm = 0 , 


( 4 - 5 ) 
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so that 0*^/2 will be 0 for the last m of that level, and there will be 
no net flow into or out of the »j level. This insures that particle 
conservation is rigorously met. Symmetrical quadrature sets always obey 
this condition, and it is important that unsymmetrical sets obey this 
condition, also. 

There is certain advantage to be gained by substituting a new variable, 
p for o: 


0m 




«m-|) 


(4-6) 


The recursion relationship for the p m can be obtained by applying its 
definition to the recursion relationship for a: 


W m 0m = Q-m+i + Q m-1 > 
M^m+1 ^m+1 = a m+§ + a m+^ 

«m+i = °m —* “ Mm , 


(4-7) 

(4-8) 

(4-9) 


and 


a m + | — Q 'm+ A — ^m+1 Mm + l 


(4 - 10) 


Therefore 

W m + 1 0m+l = W m 0m - (W m+ , Mra + 1 + W m /i m ) . (4-11) 


Recalling that a ». V 2 - 0 for the first direction of each ij level, then 
it follows that p m - for such levels; at least if k/ m t 0. As will 
be discussed later, this relationship is assumed even when - 0. 

It is important, both in applying boundary conditions and in obtaining 
proper stability, to "follow the flow" in writing the recursion 
formulas; i.e., all directions with fi < 0 must be evaluated from large X 
or R values toward small, and so with the other dimension. Similarly, 
positive n values require evaluation from small X to large, etc. These 
procedures can be written in a single formula by use of subscript 
increments defined in terms of the signum function (Sg); which has value 
± 1 according to the sign of its argument: 
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(4 - 12) 


* = \ SgM ; d = i Sg( r„) . 

Written in terms of p, c, and d , Equation 4-3 can be simplified to: 

| y. | (A +c A", +c - Ai- C Ni- e ) + | r | S(iV J+</ - Nj. d ) 

+ iA>i{(/3 m - y m )N m+ i - (/9 m + + Va T N = vs ' (4-13) 


where 


A A = A i+ i - Ai _i 


(4-14) 


and where N is simply a simplified representation of Nj $ etc. 


4.2.3 Fluence Evaluation Strategy 

Evaluation "following the flow," as discussed above, is also evaluation 
"sweeping away from boundary conditions into the mesh." Since 
evaluation always begins with m - 1, the first sweep must be toward 
smaller values of ? and j. Where 1 and J represent the largest values 
of ? and j, then the boundary values N x * V2 and /Vj + 1/2 are decided a 
priori based on physical considerations at the outer boundaries of the 
system. No such physical considerations govern the boundary fluence at 
m « 1/2, however, as will be seen. 

Before dealing with *1/2. let us observe that, even with /V,. f and Nj. d 
known from boundary considerations and to be defined by a yet- 
unspecified process, Equation 4-3 would still involve 4 unknowns. The 
three advance boundary values, W I+C , N Jtd , N^ /2 have been treated as 
completely independent, and are, therefore, not completely defined by 
Equation 4-3. In fact, all of the values of N represent values of a 
single continuous function ^ at adjacent locations, and cannot vary more 
freely than ^ does. If we suspect that i> can be approximated adequately 
by straight-line segments between adjacent boundaries, then the 
following "linear" or "diamond" difference model results: 
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N = l W +e 

- N t . c ) , 

(4 - 15a) 

JV = \(N i+d 

- Nj-d) , 

(4 - 156) 

II 

3 

+ 

- N m _ i) , 

(4 - 15c) 


As previously discussed, - -/i,. Accordingly, Equations 4-13 and 4-15 
cannot yield direct information as to an appropriate value of and 
the other results are independent of this value. Accordingly, N U2 is 
arbitrary and unknown. If N, is to be related to N m and the only 
acceptable assumption is : 


Ni = Ni . (4-16) 


Since each ij level begins with a 0 m « each must start with an 
"Initiating direction" having: 


N m +1 = N m ; 0 = -n . (4 _ 17) 


If an initiating direction occurs for m > 1, and tn' is the predecessor 
to m, then Equation 4-15 defines values for m' + 1/2 and m - 1/2 which 
do not agree. In fact, the fluence is not required to be continuous 
between directions on different r\ levels, and they do not, in general, 
describe adjacent directions. Thus, there is neither physical nor 
mathematical requirement for continuity of fluence between them. 

It has been traditional in the early DOT codes to allow these initiating 
directions to have N m - 0, i.e., "zero-weight directions," and to adjust 
their directions such that 4-0. Carlson and Lathrop describe this 
procedure. 4 On the other hand, TWOTRAN II uses directions having small, 
finite weights and having W m small, but not 0. Tomlinson et al. 
showed that, other factors being equal, this choice does not affect the 
results of test problems significantly. Both types of calculations are 
available in DORT, although the direction sets input to the code must 
always contain directions with W m - 0 to signal the beginning of a new t? 
level. When TWOTRAN-like calculations are done, or in XZ geometry, 
fluence is not calculated in directions having W„ - 0. 
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Having decided on boundary values for initiating the sweeps, Equations 
4-15 and 4-17 define the remaining unknowns in terms of the single 
unknown, N, for the initial direction of each n level: 


N l+C = 2 N 

- Nt- e , 

(4 - 18) 

N J+d = 2 N 

- Nj. d , 

(4 - 19) 


Defining, as a matter of convenience: 

A = i(A i+ 1 + A,_x) , (4-20) 

observing that: 

2|mM.-+c + A A(0-n) = 2 \ n\A + AA0 , (4-21) 


and recalling that p - -p for the initial direction of each 17 -level, the 
value of N can be written explicitly: 


V S + 2|/j| ANj-c + 2\r\BN ] . d = _ 

Vo t + 2\ I i\A + 2\t\B ’ P 11 


(4-22) 


This equation applies to the initiating directions, whether H = 0 for 
such directions or not. For all other directions, Equation 4-17 does 
not apply, and is obtained by applying Equation 4-15c to the 

preceding directions: 


AUx = 2A r - 7V m _x ; 0 * -p . 


(4 - 23) 


Since p = -/i for such directions, terms in p appear in the formulation 
for ti : 


VS + 2\fi\ ANi- c + 2 | r | BN,- d + A A0N m _i 
V<tT + 2\v\A + 2\ t\ B + A A0 


0 * -P ■ (4 - 24) 
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At this point, an explicit sweep pattern has been found. Determining 
tyiPi/ 2 > A(, +1/2 , and A / J+1/2 as described, Equation 4-22 gives N ItJ t 
explicitly. Equation 4-18 gives /V ,. 1/2 explicitly, recalling' that p < 0 
for the first direction, and thus c = -1/2. This evaluation can proceed 
for all i 's down to the boundary value at / = 1/2. With these values in 
storage, values for m * 1 1/2 can be found using Equation 4-17. If that 
»j-level contains additional directions with p < 0 , values for m = 2 are 
evaluated from Equation 4-24, and extrapolated with Equation 4-23. This 
process continues for all m's for which rj c 0 and p < 0. Having these 
values, the values for directions having 17 < 0 and p > 0 at / = 1/2 can 
be determined from physical boundary conditions. The sweep proceeds as 
before, except, of course, that evaluation is from i = 1/2 to i = I + 
1/2. From these values, Equation 4-19 determines /Y,. V2 , and the process 
proceeds as before downward to j = 1/2. Boundary values at j = 1/2 for 
directions having rj > 0 are determined from physical boundary conditions 
at the bottom boundary, and the sweep resumes, this time from j = 1/2 to 
j = J + 1/2. 


4.2.4 Additional Theory Information 

There is an excellent description of the detailed inner workings of the 
DORT code given in Reference 14. In this document, the interested user 
will find the detailed information on the various fluence weighting 
models, sweep strategies, source terms, boundary conditions, iteration 
strategies, rebalance and acceleration techniques, spatial and 
directional remeshing techniques, directional quadrature sets, and other 
information relevant to a full understanding of the DORT code. This 
information will not be repeated here. 


4.3 DORT INPUT DATA SPECIFICATIONS 


4.3.1 Card-Image Format 

The card-image input data for a problem consist of a title card followed 
by a variable number of blocks of data separated by "T" delimiters. 
Within each block, a variable number of data arrays are specified, keyed 
according to an array number, and identified as to real or integer type. 

A separator card must be placed between successive problem decks. If it 
contains the word "DIAG" in the first four columns, a non-fatal 
diagnostic will be given by ERRO. If the word "DUMP" appears, a fatal 
diagnostic is given. If the word "«END" appears, execution will stop. 
Otherwise, the next problem begins immediately. No data are retained in 
memory between problems. At the end of execution, all data files are 
closed. Control is then returned to the driver, if the code was invoked 
by a driver, or else to the operating system. 
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All of the card-image input except the title card and separator card are 
read by the FIDO input processor. The format required for FIDO data 
entries is described in Appendix A. The data arrays and blocks to be 
read are described in following sections. The first four blocks of data 
are permanent, and their "T" delimiter must be supplied whether array 
entries are required or not. 

Blocks, after the first four, containing arrays numbered 91 and higher, 
are options supplied to allow certain simple problems to be solved 
without the labor of preparing formal fluence and source input files. 

The conditions under which these blocks are required are included in 
their description. 

As each array of data is read, its length is compared with the required 
length, and an error message is given if appropriate. After each block 
of data, a call to subroutine ERRO is made if any of the arrays in the 
block were of improper length, or if the data were otherwise unsuitable. 
ERRO prints an explanation of the error and sets an error flag. Data 
are edited as soon as possible after each block is completed. 

Processing of input continues for as long as possible, even after an 
error. In most cases, this allows the user to test all of his data 
blocks in spite of an early error. Execution is terminated at the end 
of input processing if a sufficiently severe error has been encountered. 

It is possible that one error will cause subsequent data to be 
erroneously flagged as wrong. If data which appear correct are flagged 
by an error message, this possibility should be considered. An error 
can also cause subsequent system related failures, such as addressing or 
storage errors. 

The first four blocks of data contain, in general terms: 

1. control parameter input arrays (61-63) which set array lengths 
explicitly and control execution options. 

2. primary input arrays (71-78) whose lengths depend upon arrays 
(61-63), and whose contents determine later array lengths. These 
arrays describe variable-mesh, variable quadrature, variable P L , 
and super-mesh features. 

3. secondary input arrays (81-87), whose length depend upon arrays 
(61-78), and whose contents determine later array lengths. These 
include the directional quadrature specification set, coarse mesh 
specification, assignment of direction sets to super-mesh cells, 
and assignment of material zones to edit regions. 

4. general input arrays (1-30), which do not determine the lengths 
of other input arrays. These include space-mesh specifications, 
cross-section mixing instructions, specification of activity 
edits, and much more. 
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In the remainder of Section 4.3 of this report, the broad concepts 
required to understand the input data are discussed, followed by a 
detailed specification of the input data, and finally, clarification of 
several input-related topics. 


4.3.2 Space Heshes 

Five different subdivisions of the problem space are determined from the 
input data. Two sets of fine-mesh interval boundaries (2* and 4* 
arrays) are input, corresponding to the two spatial dimensions. The 
intersection of these boundaries forms the fine-mesh grid cells. (In R0 
geometry, the 2* array is entered in units of revolutions, not radians.) 

A coarse mesh, specified by an additional 2 sets of intersecting 
boundaries (85* and 86* arrays), is used in the fluence acceleration 
routines. A good choice of coarse mesh can save both memory space and 
execution time without impairing the convergence of a problem. In some 
cases, proper application of the coarse mesh can help the convergence 
rate as well. A coarse mesh of one mean-free-path is ideal for many 
problems. Default options allow the coarse mesh to be identical to the 
fine mesh if the variable space mesh feature (described later) is not 
used. A coarse-mesh I-boundary must also be a boundary in each of the 
fine-mesh I-boundary sets. A coarse-mesh J-boundary must also be a 
fine-mesh J-boundary. 

A super mesh is similarly specified (75* and 76* arrays) for use with 
the variable quadrature feature (described later), and with certain 
search options. A super-group representation (74$ array) is also 
required when variable quadrature is used. The location of the super¬ 
mesh and super-group boundaries is chosen by the user as desired, except 
that the super-mesh boundaries must also be fine-mesh boundaries. 

Material zones (8$ array) are always specified. A material zone must 
contain only one cross section set, although many zones may share a 
single cross section set. In addition to cross section assignment, 
certain input and edit features depend upon material zones. 

Edit regions (84$ array) are groupings of material zones used for the 
purpose of condensing certain output tables. Certain input and edit 
features depend upon edit regions. 


4.3.3 Variable Space Mesh 

The fine mesh can be specified such that the I mesh depends upon J. To 
accomplish this, several "I-sets" are specified, with different numbers 
of intervals and different interval boundaries. The ISET(J) array then 
relates the proper set of boundaries to the J-level. Prudent use of 
this feature can save computation time and storage by concentrating work 
in areas requiring a fine mesh. I-direction coarse-mesh and super-mesh 
boundaries must be contained in all fine-mesh I-sets. Left and right 
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boundaries of all I-sets must coincide. A "standard" I-set, which is as 
large as any of the I-sets, must be chosen. Boundary fluences and 
sources are kept in the standard I-set format. 


4.3.4 Variable Directional Quadrature 

The directional quadrature sets, "M-sets," are specified by super-zone 
and super-group. For example, this allows the user to specify a highly 
biased quadrature in the area of a streaming crack at high energy 
without wasting such detail elsewhere in the problem. A standard M-set 
must be chosen which: 


1. has as many directions up and as many down as any set, 

2. has exactly |MM| directions, and 

3. has as many ij levels upward and as many downward as any set. 


4.3.5 Variable Legendre Expansion 

The order of moment expansion (PJ may be specified by cross section set 
(78$) and by energy group (77$). The former option allows selective 
examination of anisotropic effects, while the group dependence can save 
computation time in lower energy groups, where anisotropy is less 
pronounced. 


NOTE: These features have not been made operable in current 
versions of the code. 


4.3.6 Adjoint Data 

If an adjoint problem is to be solved, all data in the first four blocks 
are entered in the normal manner. All input files supplied by the user, 
and any arrays numbered 91 and higher, must be supplied in adjoint form, 
i.e., reversed with respect to energy. For files having directional 
information, the user should remember that an adjoint problem is solved 
as a function of -0, rather than 0 where Q is a direction specified by 
the quadrature set. In other words, if n>0 and r?>0 for a given 
direction, the adjoint data calculated for that direction will be that 
appropriate to a particle moving in the (-/x, -n) direction. Directional 
input files must be similarly reversed, and directional output files 
will be. Output files have the energy groups in the order calculated, 
i.e., reversed from the usual order. 
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4.3.7 Card-Image Input Specifications 

In the following section, the symbol indicates that a detailed 
discussion is given elsewhere in this region. The symbol denotes 
the word "number," and "RV" means "recommended value." After each array, 
the length is specified in parentheses. If an array or block is not 
always supplied, the conditional requirement is given in brackets. The 
symbol "*'' denotes a feature not presently operable. 


4.4 DORT INPUT REQUIREMENTS 


The following input cards are required to execute DORT. Default values 
are specified in parentheses. 


Title Card (72 alphanumeric character description) 


INPUT DATA BLOCK 1 

61$ Array - Data Set Logical Unit Reference Numbers @ 

(length subject to change) 

NOTE: Leaving a unit as 0 disables the corresponding feature. 

NTFLX fluence guess input unit 

NTFOG fluence output unit 

NTSIG cross-section unit (default - 8) 

NTBSI external boundary source input 

NTDSI distributed source input unit 

(must supply scratch unit if INPSRM > 0) 

- 5 — 

NTFCI reserved (enter 0) 

NTIBI internal boundary source input unit 

NTIBO internal boundary fluence output unit 

NTNPR large-scale print unit 

(all print goes on standard output unit if NTNPR - 0) 
NTDIR directional fluence output unit 

- 10 — 

NTDSO distributed source output unit 

E (terminate array with "E") 
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62$ Array - Integer Control Parameters (length subject to change) 


IADJ 0/1 - forward/adjoint calculation 

ISCTM maximum order of scattering (L of PJ 

(negative indicates P L calculation is specified by 
energy group (77$ array))* 

IZM number of material zones 

IM maximum number of lst-dimensional (I) spatial intervals 

in any I-set (negative indicates number of intervals 
varies with 2nd dimension, i.e., variable mesh) 

JM number of 2nd-dimension (0) spatial intervals 

- 5 — 

IGM number of energy groups 

IHT position of total cross section in cross-section table 0 
IHS position of self-scatter cross section in cross-section 
table 0 

IHM length of cross-section table for each energy group 0 

MIXL cross-section mixing table length 0 

- 10 — 

MMESH number of material zone bodies (0 - no effect) 

MTP number of cross-section sets from NTSIG 

(0 has the effect of MTP = MTM) 0 
MTM total number of materials, including mixtures 0 
IDFAC density factor input option 

0 implies feature not used 

1 implies DNIJ(I,J) input as 3*, used to modify 
cross sections 

MM maximum number of directions in any M-set 

(negative indicates variable quadrature is used) 

- 15 --- 

INGE0M geometry option 0 
0 X-Z slab 

1 R-Z cylinder 

2 R-0 circle 

3 180* - 360* triangular 

4 60* triangular 

5 90* triangular 

6 120* triangular 

IBL left boundary condition 

0 void 

1 reflected 

2 periodic 

3 cylindrical 

4 fixed boundary source 

5 albedo 
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IBR right boundary condition 0/1/2/3/4/5 (see IBL) 

IBB bottom boundary condition 0/1/2/3/4/5 (see IBL) 

IBT top boundary condition 0/1/2/3/4/5 (see IBL) 

20 — 

ISRMX source (outer) iteration maximum (default = 1) 

IFXMI initial fluence (inner) iteration maximum per group 
(default - 20) @ 

(negative indicates maximum given by group (28$ array)) 
IFXMF alternate fluence (inner) iteration maximum per group @ 
(no effect if 0) 

MODE fluence extrapolation model (default = 4) 

0 linear with negatives set to 0 

1 linear with no fixup of negatives 

2 scalar weighted 

3 zero weighted 

4 theta weighted 

5 vector weighted 

KTYPE calculation type @ 

0 fixed source 

1 K eigenvalue 

2 DB2 search 

3 concentration search 

4 dimension search 

25 — 

IACC rebalance method in discrete ordinates section 

(default = 2) 0 

0 single groupwise rebalance factor 

1 diffusion acceleration 

2 partial current rebalance 

KALF rebalance stabilization @ 

0 standard method 
1 alternate method 
IGTYPE solution method @ 

0 discrete ordinates used always 
N method selected by group (7$ array) for first 
N outers, then finishing with discrete ordinates 
INPFXM fluence input option 

0 fluence set to 0, or read from unit NTFLX 
if NTFLX > 0 

1 FIJ(I,J) read as 93* array for each group 

2 FIJ(I,J)*FG(G), uses 93* and 95* arrays 

3 FI(I)*FJ(J)*FG(G), uses 93*, 94*, and 95* arrays 
INPSRM distributed source input options 0/1/2/3 

(options are analogous to INPFXM; use 96*, 97*, 

98* arrays) (NTDSI > 0 is required if INPSRM > 0) 

30 — 
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NJNTSR interior boundary source at NJNTSR J-boundaries will be 
input from NTIBI (may be 0) 

NINTSR interior boundary source at NINTSR I-boundaries will be 
input from NTIBI (may be 0) 

NJNTFX interior boundary fluence at NJNTFX J-boundaries will be 
written on NTIBO (may be 0) 

NINTFX interior boundary fluence at NINTFX I-boundaries will be 
written on NTIBO (may be 0) 

IACT number of region and pointwise activities calculated @ 
(negative indicates region activities only) 

35 — 

IRED balance table output control 

In general, IRED is the largest number in the 84S array, 
except that: 

IRED=IZM one region for each zone, balances for 
IZM regions 

IRED= 1 combines all zones into a single region 
IRED= 0 no balance table output, but one region for 
each zone 

IRED= -1 provides one region per zone, balance tables 
will be given for the entire system only 
IPDB2 punch J-directi on DB 2 from balance table output 
0 no DB 2 produced 

1 single average DB 2 

2 IGM groupwise DB 2 values 

3 IGM*NREG groupwise and regionwise DB 2 values 
(use negative entry to bypass balance table print) 

IFXPRT scalar fluence print option (default ■ 1) 

0 scalar fluence for all groups printed in output phase 

1 scalar fluence not printed 

2 scalar fluence printed as calculated 
ICSPRT cross section print option (default = 1) 

0 cross sections printed 
1 cross sections not printed 
IDIRF directional fluence 

0 directional fluence not saved 

1 directional fluence saved and printed 

2 directional fluence saved but not printed 
(directional fluence will be written onto NTDIR 
if IDIRF > 0 and NTDIR > 0) 

40 --- 

JDTRF first J-interval for directional fluence output 

JDIRL last J-interval for directional fluence output 

NBUF system buffer space @ 

IBM: 1/0 system block space, kbytes (default * 90) 

CRAY: no effect 
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1EPSBZ 


MINBLK 


45 — 
MAXBLK 


ISBT 

MSBT 

MSDM 

IBFSCL 


50 — 

INTSCL 

ITMSCL 

NOFIS 


IFDB2Z 


ISWP 


55 — 


zone importance convergence (uses 24* array) @ 

0 feature not used 
1 zone importance used 

11 as 1 & zone convergence printed after convergence 

21 as 1 & zone convergence printed after each iteration 

minimum J-blocking for fluence moment storage (rv=0) <? 

0 1 space block per group, all groups in memory allowed 

1 1 space block per group, 1 group in memory allowed 

N at least N space blocks required, 1 group in memory 


maximum J-blocking @ 

0 JM space blocks per group allowed 
1 only 1 space block per group allowed 
N maximum of N space blocks per group allowed 
standard I-set for boundary fluences (default »= 1) 
standard M-set for boundary fluences (default = 1 
standard M-set for dimensioning (default = 1 
(MSDM - MSBT always in this version) 
number of fluence iterations before first rebalance 
in first source iteration (default « 1) @ 


minimum number of rebalance iterations (default * 4) @ 
maximum number of rebalance iterations (default - 50) @ 
fission spectrum option (default « 1) 

0 fission calculated with X normalized to 1.0 

1 fission calculated with input X values 

2 fission calculation bypassed, saving memory space 
(NOFIS will be set to 2 if the 1* array is 0) 

DB 2 input option 

0 option not used 

1 DB2Z(IG,IZ) entered as 6* array by group, 
then by region 

type of diffusion theory sweep (rv-4 or 5) 

0 line inversion in direction of.largest number of mesh 
intervals 

1 alternating direction (line-column) on consecutive 
outer iterations 

2 line inversion 

3 column inversion 

4 alternating direction (line-column) on consecutive 
inner iterations 

5 alternating direction (column-line) on consecutive 
inner iterations 

6 line inversion outward from center J interval 
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KEYJN J-interval for key fluence print (ignored if 0) 

(default « 1) 0 

KEYIN I-interval for key fluence print (ignored if 0) 

(default - 1) 0 

NSIGTP cross section input file (NTSIG) format 0 
0 GIP format 
1 ORDOSW format 

NORPOS cross section table position for output normalization 
(option not used if N0RP0S=0) 

NORMAT cross-section material number for output normalization 
(0 implies use macro cross section set; negative implies 
do not use density factor in normalization) 

- 60 — 

MSTMAX maximum number of M-sets (0 implies JM sets allowed) 

NEGFIX negative scattering source fixup (default = -1) 0 
0 option not used 

1 full source fixup used 

2 initial fixup used 
-1 economy fixup used 

LOCOBJ fast memory objective into which problem 
will try to fit 0 
IBM: no effect 

CRAY: fast memory objective, words*1000 
(0 implies use default) 

LCMOBJ slow memory objective into which problem 
will try to fit 0 

CRAY CTSS: sequential file size, kwords 
(0 implies use of system default) 

NKEYFX length of key fluence arrays (29$, 30$) 0 

(0 bypasses feature, negative causes print only at 
convergence or iteration limit for each group) 

- 65 — 

NCNDIN maximum user condition code allowed (default = 4) 

NEUT last neutron group number (0 implies NEUT = IGM) 

E (terminate array with "E") 


63* Array - Real Control Parameters (length subject to change) 

TMAX maximum minutes of CPU time for this problem (0 ignored) 0 
XNF value to which source is normalized (0 ignored if 
KTYPE - 0, otherwise 0 implies XNF - 1.0) 

EPS eigenvalue convergence criterion (source iterations) 

(default - 1.0E-4) 0 

EPP pointwise fluence convergence criterion 

(fluence iterations) (negative: source iterations can 
halt without meeting EPP) (default - 1.0E-3) 0 
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EPV volumetric fluence convergence criterion 

(fluence iterations) @ 

- 5 --- 

EPF Pointwise fission convergence criterion 

(default - 1.0E-3) 0 

EKOBJ k-effective sought in search (KTYPE > 1) or initial 
k-effective (KTYPE « 1 ) (default = 1.0) § 

EVTH k-effective convergence ratio (default = 0.2) 0 
EVCHM maximum EV change ratio per iteration (default = 1.5) 0 

EVMAX maximum EV change ratio, overall (default = 10.0) 0 

- 10 — 

EVKMX maximum allowed Ineffective - EKOBJ| (default * 1.0) 0 
EVI initial eigenvalue (default = 1.0) 0 
OEVDKI initial eigenvalue slope (default = -1.0) 0 
EVDELK initial eigenvalue increment (default = 0.3) @ 

SORMIN maximum source iteration acceleration (default = 10 . 0 ) 0 

- 15 — 

CONACC fluence acceleration acceptance criterion (default * 1.0) 
CONSCL fluence acceleration convergence criterion 
(default - 1.0E-4) 9 

CONEPS fluence acceleration convergence ratio (default = 0.01) 
WSOLOI reserved (enter 0) 

WSOLII fluence acceleration damping increment (default = -1.5) 
(negative indicates use only as required) 

- 20 — 

WSOLCN fluence acceleration damping constant (default = 1.5) 

ORF diffusion theory fluence acceleration factor 

(default - 0 . 6 ) 

FSNACC reserved (enter 0) 

FLXMIN minimum fluence for convergence tests 

(default - 1.0E-60) 0 
SMOOTH reserved (enter 0) 

- 25 — 

EPO source iteration fluence convergence criterion 0 
EXTRCV source iteration extrapolation convergence criterion 0 
(default - 0 . 2 ) 

THETA theta-weighted extrapolation model parameter 

(default - 0.9) 

E (terminate array with "E") 

T (terminate block with "T") [T always required] 
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INPUT DATA BLOCK 2 


Primary Dimension-Setting Arrays (Omit arrays not needed) 

71$ Array ISET(J) (# - JM) [IM < 0] 

Index of radial mesh set to use at each J level, 
(default - Set 1) 

72$ Array IMBIS(ISET) (# - JM) [IM < 0] 

Number of intervals in each I set; 
then fill array with 0's. 

73$ Array MMBMS(MSET) (# = MSTMAX) [MM < 0] 

Number of directions in each M set; 
then fill array with 0's. 

74$ Array ISZNG(IG) (# = IGM) [MM < 0] 

Super group number by group 
(default « a single supergroup) 

75* Array SZNBZ(JSZ) (# - JM) [MM < 0 or KTYPE > 1] 

J super mesh boundaries 

Enter as many boundaries as desired. Then fill with 0. 
(default = a single superzone) 

76* Array SZNBR(ISZ) (# * |IM|) [MM < 0 or KTYPE > 1] 

I super mesh boundaries 
Enter as in 75* 

77$ Array ISCTG(IG) (# « IGM) [ISCTM < 0] 

Order of Legendre expansion used in calculation 

78$ Array NSIG(MT) (# - MTM) [MCR < 0] 

Order of Legendre expansion of cross section sets 

T (terminate block with "T") [T always required] 


From these, the following are determined: 


MGSZN - largest super group number [1 if MM > 0] 

NJSZN * number of J super zone boundaries [1 if MM > 0] 

NISZN - number of I super zone boundaries [1 if MM > 0] 

ISM - # non-zero entries in 72$ [1 if IM > 0] 

MSM - # non-zero entries in 73$ [1 if MM > 0] 

IMSISM - sum of IMBIS, all I sets [IM if IM > 0] 

MMSMSM - sum of MMBMS, all M sets [MM if MM > 0] 

IMSJM - sum of IMBIS(ISET(J)), all J [IM*JM if IM > 0] 
IMA - 1 IM | 
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MMA - |MM) 

MMSIMS « MMA*IMA 

MMSJM - MMA*JM 

IHP * IHM + 1 if IHS > IHT + 1; otherwise * IHM 


INPUT DATA BLOCK 3 


Secondary Dimension-Setting Arrays (Omit arrays not needed) 

81* Array W(M,MSET) (# = MMSMSM) 

Directional weights 

82* Array EMU(M.MSET) (# - MMSMSM) 

H, cosine of angle with X or R direction 

83* Array ETA(M.MSET) (# = MMSMSM) 

r, cosine of angle with Z or 0 direction 

84$ Array IZNRG(IZ) (# = IZM) [IRED ¥ 0 or IACT / 0] 

Region number by zone (default controlled by value of 
IRED, one region per zone if IRED=IZM, 0, or -1; one 
region if IZM - 1; otherwise IZNRG must be specified 
in full) 

85* Array ZCMB(JC) (# = JM) 

J coarse mesh boundaries 

Enter as many boundaries as desired up to the limit, JM. 
Then fill with any number at least as large as the last J 
fine-mesh boundary, (default »= 1 course mesh for each 
interval) 

86* Array RCMB(IC) (# = IMA) 

I coarse mesh boundaries, as in 85* 

87$ Array IJGSZ(ISZ,JSZ,IGSZ) (# - NISZN*NJSZN*NGSZN) [MM < 0] 

M set by I super mesh, 
then by J super mesh, 
then by super group 

T (terminate block with "T") [T always required] 


From these, the following are determined: 


JCM - # of coarse mesh boundaries entered in the ZCMB array 

ICM - § of coarse mesh boundaries entered in the RCMB array 

NREG * maximum of IZNRG(IZ) array 

ICMJCM - ICM*JCM 

ICPJCP - (ICM + 1)*(JCM + 1) 




General Input Arrays (Omit arrays not needed) 

1* Array CHI(IG) fission spectrum fractions, X, by group (# * IGM) 

2* Array ZIN(J) Z or 9 fine-mesh boundaries (# « JM + 1) 

3* Array DNIJ(I,J) density factor (# - IMSJM) [IDFAC > 0] 

(default - 1.0) 

4* Array RIN(I,ISET) X or R fine-mesh boundaries 

(# - IMSISM + ISM) 

5* Array ENER(IG) top neutron energy group boundaries + bottom 
energy of last neutron group + top photon energy group 
boundaries + bottom energy of last group (# = IGM + 2) 
[NTFOG > 0] 0 

6* Array DB2Z(IG,IZ) DB 2 by group, then by region 
(# ■= IGM*NREG) [IFDB2Z > 0] 

7$ Array ITHYG(IG) theory by group (# - IGM) [IGTYPE > 0] 9 

8$ Array IJZN(I,J) material zone by fine space mesh (# * IMSJM) @ 

9$ Array IZMT(IJZN) material number by material zone (# *= IZM) 

10$ Array MIXT(MIX) mixture ID (# - MIXL) 

11$ Array NUCL(MIX) nuclide ID (# - MIXL) 

12* Array DENS(MIX) number density (# - MIXL) 

13$ Array MATL(MT) ID number by material (# = MTM) 

(default MATL(MT) - MT) 

14* Array ZNTSR(JNTSR) Z or 0 boundary positions for J-boundary 
source input (# * NJNTSR) 

15* Array RNTSR(INTSR) X or R boundary positions for I-boundary 
source input (# ■ NINTSR) 

16* Array ZNTFX(JNTFX) Z or 6 boundary positions for J-boundary 
fluence output (# - NJNTFX) 

17* Array RNTFX(INTFX) X or R boundary positions for I-boundary 
fluence output (# - NINTFX) 


18* Array 


FJSRZ(JSZN) J-Super zone search fraction (# - NJSZN) @ 
[KTYPE - 4] 






19* Array FISRZ(ISZN) I-Super zone search fraction (# •= NISZN) 0 
[KTYPE - 4] 

20* Array ABDOL(IG,J) left boundary albedo (# = IGM*OM) 

[IBL =5] 

21* Array ABDOR(IG.J) right boundary albedo (# = IGM*JM) 

[IBR = 5] 

22* Array ABDOB(IG,I) bottom boundary albedo (# = IGM*IMA) 

[IBB =5] 

23* Array ABDOT(IG,I) top boundary albedo (# = IGM*IMA) 

[IBT = 5] 

24* Array EPSBZ(IZ) fluence error importance by material zone 
(# - IZM) [if IEPSBZ > 0] @ 

25$ Array ICMAT(IAC) material to be used in activity calculations 
(# * |IACT|) 0 

26$ Array ICPOS(IAC) cross section table position for activity 
(# = |IACT|) 0 

27* Array ACMUL(IAC) activity multiplier (# = |IACT|) 0 

28$ Array ITMBG(IG) initial iteration limit by group (# = IGM) 
[IFXMI < 0] 0 

29$ Array KEYAJ(NKEY) J positions of key fluences in ascending 
order (# = |NKEYFX|) 0 

30$ Array KEYAI(NKEY) I positions of key fluences in ascending 
order for like J (# . |NKEYFX|) 0 

T (terminate block with "T") [T always required] 


INPUT DATA BLOCK 5 


External Boundary Source Input 

[required if INGEOM < 20 and IBL, IBR, IBB, or IBT = 4] 

91* Array SII(M.J) (# = MMA*JM) [IBL = 4 or IBR = 4] 

I boundary source for a group 

92* Array SJI(M,I) (# = MMA*IMA) [IBB = 4 or IBT = 4] 

J boundary source for a group 


T (terminate block with "T") [T required if any arrays are required] 




Left and right sources are intermingled in the same array according to 
direction. If p > 0, the source applies to the left boundary; if /x < 0, 
to the right. Likewise, if r > 0, a J*boundary source applies to the 
bottom; if r < 0, the source applies to the top boundary. If any 
blocks of this type are required, IGM are required. 

If IADJ > 0, the energy groups must be entered in reversed order. Omit 
block and delimiter if INGEOM > 20, or if no arrays are required. 


INPUT DATA BLOCK 6 


Fluence Guess Input [required if INPFXM > 0] 

93* Array FIJ(I,J), FIJ(I,J) or FI(I) as INPFXM = 1, 2, or 3 
(# = IMSJM ,IMSJM, or IM) [INPFXM > 0] 

94* Array FJ(J) (# = JM) [INPFXM = 3] 

95* Array FG(IG) (# = IGM) [INPFXM > 1] 

Note: Each array of this block must be followed by "T". If no 

arrays are required, no "T" is required. If IADJ > 0, energy 
groups must be specified in reversed order. 

INPUT DATA BLOCK 7 


Distributed 

Source Input 

96* Array 

as 93* Array 

97* Array 

as 94* Array 

98* Array 

as 95* Array 


[required if INPSRM > 0] 
above 
above 
above 


4.5 DORT INPUT DATA NOTES 


4.5.1 Special Geometry Features 

If INGEOM > 10, a one-dimensional problem will be solved with vertical 
flow suppressed. Use void boundary condition at top and bottom. RZ 
direction sets must be used with INGEOM = 11, while R0 sets must be used 
with INGEOM = 12. Solutions with INGEOM = 11 or 12 yield essentially 
the same result. 
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If INGEOM - 20, KTYPE - 0, and IBR - 4, a combined 
reflection/transmission problem in slab geometry is solved. Omit the 
91* and 92* array blocks, and supply the input spectrum as CHI. The 
code will generate a boundary source in the leftmost direction of non¬ 
zero weight of each downward q level. The value of JM must be the 
number of downward q levels. In this case, J corresponds to the 
incident i? level, not to a Y-direction mesh. The 2* array should be 
filled with the values 0.0, 1.0, 2.0, ... JM. The first i; level will 
correspond to the last J level. |CHI(IGM)| particles will enter each 
level in each group. If CHI(I) < 0, the emerging fluence is printed by 
direction, then by space interval. 

If INGEOM = 30, the calculation proceeds as with INGEOM = 20, except 
that emerging fluence will be calculated for a source entering each 
group JDIRF < IGI < JDIRL in turn, and leaving in all groups IGI < IG0 < 
IGM. The total source per group in each J-level is |CHI(IGIJ|. If CHI 
< 0, the fluence from sources entering that group will be printed. The 
problem is "double differential," in that the fluence leaving each group 
resulting from a source in each individual input group is calculated. 

If 3 < INGEOM < 6 , and if all iterations are to be performed in 
diffusion theory, equilateral-triangular geometry is available. 

Geometry options, together with the required value of IM, are: 


INGEOM TRIANGULAR GEOMETRY OPTION VALUE OF IM 


3 180*-360’ Symmetry 

4 60* Symmetry 

5 (not operable) 90* Symmetry 

6 120* Symmetry 


User's option 
2*JM-1 
2*JM+1 
2*JM 


The resulting geometry is illustrated in Figure 4-1. 

The mesh input data involve certain unusual requirements. In most 
cases, the value of IM is a function of JM as shown above. Also, the 
radial dimensions used for input do not correspond directly to the 
actual dimensions of the mesh. For all but 90* symmetry, every mesh 
interval is an equilateral triangle with sides having a length S. 
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ORNL/DWG 82-12460 



INGEOM SYMMETRY 

3 180-360 

4 60 

6 120 



Figure 4-1. Triangular Geometry Options. 


JM + 1 J-interval boundaries are entered, beginning with 0, and with 
spacing 73 S/2. With 120*, 180*, or 360* symmetry, IM + 1 I-interval 
boundaries are entered, beginning with 0, and with spacing S/2. With 
60* symmetry, the code will automatically set IM to negative, and 
require the entry of JM I-sets. The jth I-set has 2j boundaries with 
spacing S/2. The description applicable to 90* symmetry is not 
available. 

For all cases, the (1,1) mesh interval is a triangle with vertex down. 
Example meshes are shown for the various triangular geometry options. 

For 60* symmetry, the parameter ISBT should be set equal to JM, and the 
bottom boundary condition must be reflected. For 120* symmetry, the 
left and bottom boundaries must be periodic if periodic boundary 
conditions are selected. 
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4.5.2 Special Theory Options 

If I6TYPE > 0, then the first IGTYPE outer iterations will be performed 
using alternate theory specified by group in the 7$ array. If the gth 
entry is N g then the first |N g | inner iterations of the first IGTYPE 
outer iterations on group, g, will be performed using diffusion theory 
if N fl > 0. If |N fl | is less than the applicable maximum number of 
iterations, the iterations will be completed in transport theory, even 
though the alternate theory may have achieved convergence. 


4.5.3 Cross Section Input and Mixing 

The internal cross section storage comprises MTM sets of cross sections 
for each energy group. The first MTP sets are read from logical unit 
NTSIG, which is always required. The remainder are prepared using a 
"mixing table," described below. [It is intended that the first MTP 
"materials" will be microscopic nuclide data, and the remainder will be 
macroscopic mixtures, although other uses are possible.] The material 
numbers entered in the IZMT array (9$) must be integers between 1 and 
MTM, corresponding to the appropriate data. 

Each material consists of IHP cross sections as indicated in the 
description of the 0RD0SW input file. If ISCTM > 0, then ISCTM sets of 
Legendre expansion data must follow each set designated in the IZMT 
array. If MCR < 0, then the required number of expansion sets is 
indicated in the NSIG array (78$) (this feature is not presently 
operable). 

If MIXL > 0, cross sections are to be modified by a mixing table, 
specified by the MIXT, NUCL, DENS, and MATL arrays (10$, 11$, 12*, and 
13$). The MATL array assigns an arbitrary ID number to each material. 

If it is not entered, the ID's 1,2,.,MTM are assumed. Each integer 

entered in the MIXT and NUCL arrays must be one of these ID's, or 0. In 
the following: 

m - number of the material having ID |p| if p ¥ 0; otherwise 0 
n - number of the material having ID |q| if q j 0; otherwise 0 
and the interpretation of the table is as follows: 


MIXT NUCL DENS 

p q d 


(a) If q * 0, then the data of material m will be multiplied by d. 

(b) If q > 0, then the data of material n, multiplied by d, will be 

added to that of material m. 
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(c) If q - p, the data of material m will be modified by the 

eigenvalue in concentration searches. 

(d) If p < 0, the appropriate Legendre expansion components will be 

treated as was the principal set. 

Each set of entries is executed in sequence. In searches, the table may 
b£ executed repeatedly. As an example, with MIXL * 6, MTM - 11, and 
ISCTM - 3. 


I 

MIXT 

NUCL 

DENS 

MATL 

1 

1000 

0 

0 

10 

2 

1000 

10 

.1 

20 

3 

1000 

20 

.2 

30 

4 

1000 

1000 

0 

40 

5 

-2000 

0 

0 

50 

6 

-2000 

30 

.3 

60 

7 




1000 

8 




2000 

9 




3000 

10 




4000 

11 




5000 


Material 7 will consist of: 

Material 1 * .1 + material 2 * .2 
and will be modified by the eigenvalue. 

Materials 8, 9, 10, 11 will be: 

Materials 3, 4, 5, and 6 * .3. 

Although the value of a* 1 does not affect the fluence in a calculation 
directly, it must be used to obtain correct balance tables. It should 
meet the condition: 


a T = °a + yi a 9~9' 
9' 


If a T (g) is replaced by a "transport cross section" in reactor core 
problems, a must be a B . g , reduced such as to maintain <r* constant. 

It may be important to note that many standard cross section files such 
as ISOTXS and MATXS have Legendre expansion data which must be 
multiplied by 2/ + 1, where 7 is the expansion index, for use in DORT. 
It is intended that this be done in the code which prepares the 0RD0SW 
(or optional GIP input file). 
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4.5.4 Activity Edits 


A very general provision for obtaining energy-integrated reaction rates 
is provided. The arrays ICMAT, ICPOS, and ACMUL define an "activity 


table," interpreted as follows: 


ICMAT ICPOS 

ACMUL 


r s t 


A t>J — t di l} C\,j,r,s $9,},* a g,r,a 

9 

B, = Y. - 4 ../ Vij 


where 

U - 

space mesh indices 

9 

energy group index 

| r - 

material number 

|s| - 

cross section table position number 

t 

arbitrary multiplier 

d 

density factor if used, else 1 

* « 

fluence 

a ■ 

cross section 

C ■ 

the "number density" of material |r| in space 

X 

1 if cell i,j is in edit region Z, else 0 


The value of C is determined as follows: 



(a) If r is the macro material used in cell i,j, then C - 1, 

(b) If r is 0, then C - 1, and the cross sections for the macro 

material in material in cell i,j are used, 

(c) If r < 0, then C - 1, 

(d) If r > 0 and is not the macro, then C is the sum of all 

assignments of r to the macro according to the mixing 

table. Suppose IACT - 4 and the following table is 
entered, referring back to the mixing table illustrated 
above; and suppose material 7 is named as a macro in a 
portion of the problem: 


I ICMAT ICPOS 


1 7 3 

2 -7 3 

3 0 4 

4 1 5 

5 1 -5 


ACMUL 


1 . 

1 . 

500. 

1 . 

1. 
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Activity 1 will use position 3 of material 7, but will be 0 where 7 is 
not the macro. Activity 2 will be similar, but will be calculated 
whether 7 is the macro or not. Activity 3 will use position 4 of the 
macro in each space cell, and will multiply the result by 500. Activity 
4 will use position 5 of material 1 and a "number density" of .1 
wherever 7 is the macro, since .1* material 1 was added to material 7 in 
the mixing table. 

As a special feature, if |s| > IHP, then the value of CHI (1*) for the 
group will be used to replace a, and c and d will be everywhere 1. This 
can be useful in adjoint problems. 

If s < 0, the activity will be written on the punch data set. This can 
be used for fission density output, for example, as in Activity 5 of the 
illustration. 


4.5.5 Negative Source Removal 

Any problem using ISCTM > 0 may incur negative source generation. This 
is simply due to the failure of a truncated P L expansion to describe the 
cross section adequately. If the problem has no areas of 
monodirectional flow or void, this effect will probably not be noticed, 
and will usually cause no harm. Voids or monodirectional flow, however, 
can result in severe distortions, or even negative scalar values for the 
fluence. The NEGFIX > 0 option will remove these distortions in most 
cases. The penalty in CPU time is usually in the range of 15-30%, 
although it can be higher if a major portion of the problem is so 
affected. 


4.5.6 Problem Type Specification 

Five major types of calculation are available, chosen by KTYPE: 

KTYPE = 0 M calculation - fixed source or subcritical multiplication 
-IK calculation - determines K eff 

- 2 B search - modify DB 2 to produce specified K eff 

- 3 C search - modify concentrations to produce specified K eff 

- 4 D search - modify dimensions to produce specified K eff 

When KTYPE - 0 and CHI - 0 (1* array) or NOFIS = 2, a simple fixed- 

source problem is solved. Fluence from the input source is determined 
in one source iteration unless upscatter cross sections are used. 
Upscatter requires ISRMX > 1 and EPO > 0 for satisfactory results. 

If some values of CHI ¥ 0 and NOFIS / 2, fissions resulting from the 
fixed source and the input fluence guess, if any, are calculated in the 
first source iteration. These are added to the fixed source to begin 
the second iteration, and so on until subsequent fission generations 
have been accounted for. Since these subcritical multiplication 
problems tend to be slowly convergent, source iteration acceleration, 
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discussed elsewhere, is used. If the system is, by itself, 
supercritical, this calculation will surely fail; a reflection of the 
fact that the fluence would be divergent in such a physical situation. 
The number of fission neutrons produced per source neutron is determined 
by iteration. Several source iterations are required. When KTYPE « 1, 
a calculation of K, ff is performed. Acceleration of the source 
iterations is discussed elsewhere. 

K calculations can be improved somewhat be setting EVI equal to the 
best-available estimate of K. This is especially important in the case 
of restarts. 

When KTYPE > 1, properties of the system configuration are changed in 
order to drive K eff , calculated as described above, to a specified 
value, EKOBJ. For each configuration, the value of K eff is partially 
converged, the configuration is changed, and the process continues until 
K eff has stabilized and it is near the objective value. Additional 
details of this process are given in another section. 


4.5.7 Iteration Limits and Convergence 


In general, source iterations will be performed until the time TMAX is 
exceeded (IXX - 8), the iterations limit ISRMX is exceeded (IXX * 1), or 
convergence is reached. Source iteration convergence has not been 
reached if: 


(IXX ■ 2) the problem uses diffusion-theory source iterations 

followed by transport theory, and transport theory has 
not begun. 


(IXX 


3) the search has not converged; i.e., KTYPE > 1, 
EPS > 0, and: 


K n - EKOBJ 
Kn 


> EPS 


where: K N is the value of K eff for the 
latest (Nth) source. 


(IXX « 4) iteration fluence iterations for some group have not 
converged; i.e., EPO > 0 and: 




j.N aN-1 

Z tiM 

4>n. 


> EPO 
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(IXX « 5) fission density has not converged; i.e., EPF > 0 and: 


ifl ~ iS" 1 1 


F* 


> EPF 


(IXX - 6) K eff has not converged; i.e., EPS > 0 and: 

k n _ k n-\ 


K N 


> EPS 


(IXX - 7) No source iterations have been completed. 

The value of IXX is printed at each iteration, together with each of the 
above measures of convergence. 

In general, problems with KTYPE > 0 require several outer iterations for 
convergence, while problems with KTYPE - 0 require only 1. In the 
latter case, performing several outer iterations can be very wasteful. 
Exceptional cases are fixed-source (KTYPE - 0) problems with non-zero 
fission or with upscatter. In these cases, several outer iterations are 
required. 

The fluence iteration limit for each source iteration will be IFXMI or, 
if IFXMI < 0, the groupwise value from input array 28$. After K" and 
fission density have converged, the iteration limit is changed to IFXMF 
if IFXMF > 0. Fluence iterations proceed until the time TMAX is 
exceeded, the iteration limit is exceeded, or convergence is reached. 
Fluence convergence has not been reached if: 

• Pointwise fluence convergence has not been reached; 
i.e., EPP > 0 and: 


4 > n -' 

W lt) > EPO 


n « fluence iteration index 

Where W, i is the value of the importance function (24* array) for the 
position' i,j if IEPSBZ > 0, and otherwise 1.0. The largest « p for any 
group after the last fluence iteration is called "group convergence," 
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Volumetric fluence convergence has not been reached; 
l.e., EPV > 0 and: 


*521 Wij Vij 


£ Wij v tJ 


> EPV 


Fluences less than FLXMIN are not considered in the tests. This 
prevents values near zero, which are badly affected by roundoff, from 
thwarting convergence. FLXMIN also is used as a minimum coarse-mesh 
fluence by the fluence acceleration routines, preventing similar 
degeneracy there. 


4.5.8 Search Strategy 

The searches proceed by successive adjustment of the eigenvalue, EV. EV 
is constrained to be positive, and extensive checks prevent oscillation 
and overextrapolation. Each search seeks a value of EV which adjusts 
K #ff to an input value, EKOBJ. EV is used to adjust the system 
parameters as follows: 


B search: (DB 2 ) eff - (DB 2 ) lnput * EV 
C search: (C) eff - (C) lnpot *(l + f(EV - 1)) 

way, an entry is made 

12 * 
f 

D search: (Ad) eff - (Ad) lnput *(l + f(EV - 1)) 


To adjust material m in this 
in the mixing table: 

10 $ 11 $ 


Here, d represents either dimension and f is the 
superzone search fraction input (18* or 19* array) 

The Initial estimate of EV is EVI. Defining search convergence as: 


CONVSR - (K“ - EKOBJ)/K N 
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and eigenvalue convergence as: 


CVK = (K M - K N_1 )/K M 


the initial value of EV is used until: 


CVK < EVTH*max(EP$,min(0.1,C0NVSR)) 


The second value of EV is determined by linear extrapolation if EVDELK 
= 0, using the input value of eigenvalue dependence on K, DEVDKI. If 
EVDELK / 0, the second EV is: 


EVI ± EVDELK 


where the sign of DEVDKI is used to determine the correct step 
direction. Subsequent values of EV are obtained by nonlinear 
interpolation if possible, and linear when nonlinear fails. 

Each new value of EV is constrained to the range between EV*EVCHM and 
EV/EVCHM. EV is always limited to the range between EVI*EVMAX and 
EVI/EVMAX. If EV moves to its limit and stays there, or if K exceeds 
the range between EKOBJ+EVKMAX and EKOBJ-EVKMAX, the search is stopped 


4.5.9 Upscatter Rebalance 

If upscatter is present in a problem, upscatter rebalance is performed 
after source iteration 2 and successive iterations. All fluences within 
the upscatter energy range are multiplied by a factor DVUPS: 


DVUPS - UPSS/(UPSS - (UPSP - UPS)) 


where: I6UPS = first group into which upscatter is non-zero 
UPS = previous upscatter sum 
UPSP - new upscatter sum 
UPSS = sum of all scatter into groups > IGUPS 
from groups < IGUPS 

This factor is applied to fluences for all energy groups > IGUPS, 
bringing the system into global balance. This procedure is usually 
helpful, and has not been observed to cause erratic behavior. The value 
of « u - DVUPS-1 is printed in the output data as upscatter convergence. 
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4.5.10 Fission Rescaling 


An approach analogous to upscatter rebalance is used when a fixed source 
is used with a multiplying medium. In these cases, fluences for all 
energy groups are multiplied by FSNORM: 


FSNORM - FXSUM/(FXSUM - (SRNEW - FSOLD)) 


where: FXSUM = total fixed source 

SRNEW « new fission source estimate 
FSOLD - previous fission source estimate 

Since the upscatter rebalance is applied before fission sums are 
calculated, there is no conflict between these procedures, and one 
supplements the other. 


4.5.11 Fission Extrapolation 

After these rebalance and rescaling procedures, a feature is provided to 
use a fixed fission acceleration factor: 


(FSNIJ) extPap = (FSNIJ) catc + f[(FSNIJ) ca , c - (FS0IJ) final ] 


where: FSNIO - new fission distribution 

FSOIO - previous fission distribution 

f = FSNACC, an input parameter, adjusted downward as 
necessary to insure that no fission value is changed 
more than 20% 

No extrapolation of fluences is attempted with this procedure. Tests 
have shown that reasonably chosen values of FSNACC speed the convergence 
of certain problems, especially M calculations, and cause oscillation in 
others. Its use is not generally recommended. The option of FSNACC has 
been removed from DORT. 


4.5.12 Error-Mode Extrapolation 

To accomplish error-mode extrapolation, DORT accumulates the sum FERAH 
and the eigenvalue estimate 

FERAH = 2|(FSNIJ) extrap - (FS0IJ) extrap | 

A - (FERAH)^ /(FERAH) prevjous 
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and an error-mode removal parameter 6: 


0 = A / (1 - A) 


When estimates of 0 in three successive iterations are in fractional 
agreement within EXTRCV, the fission is extrapolated according to: 


(FSNIJ) final - (FSNIJ) extrap + 0'[(FSNIJ) extrap - (FS0IJ) fiftal ] 


where 0' is 0 adjusted so that the fission density will change by no 
more than |SORMIN|, where SORMIN is a input value. The fluences are 
similarly extrapolated by the factor 0',- with each fluence limited by 
the |SORMIN| ratio. 

Tests show this procedure to be safe and effective. It is compatible 
with upscatter rebalance and can be used together with fission 
rescaling. 

If fission rescaling is not used, 0, in certain cases, may be 100 or 
larger. In such cases, single-precision IBM calculations may not be 
sufficient to provide a stable value of 0, and so the extrapolation is 
lot effective. Rescaling may lower 0 in such cases to a manageable 
alue, i.e., to 25 or less. 

As a counter example, if a system is driven' by a source at its 
periphery, the unmultiplied fluence due to the source is so different in 
shape from the final fluence solution that fission rescaling may slow or 
thwart convergence. A negative value of SORMIN must be used in such 
cases, so that fission rescaling is disabled. 


4.5.13 Fluence Iteration Acceleration 

Five types of fluence iteration acceleration can be selected: 


IACC KALF Result 


0 


1 

2 


2 


any Groupwise rebalance 

0 Diffusion acceleration, corner mesh 

1 Diffusion acceleration, centered mesh 

0 (Conventional) Partial current 

rebalance, J stabilized 
1 (Conventional) Partial current 

rebalance, $ stabilized 
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Corner-mesh diffusion acceleration (CNRDA) is usually best for "normal" 
problems. High-energy neutron groups in problems having complex 
geometry may be better solved by partial-current rebalance (PCR). The 
choices of stabilization with PCR are of roughly equal merit. In the 
case of problems having two facing reflected or periodic boundaries, 
such as cell or R0 problems, it is often helpful to use the coarse-mesh 
feature to specify only one interval in the reflected (or periodic) 
direction, and to specify PCR. (In such a case, the code will arrange 
one interval as a default unless the 85*/86* array is entered 
explicitly.) 

All of the fluence iteration acceleration schemes except the groupwise 
rebalance require the performance of a certain number of rebalance 
iterations after each fluence iteration. Default input parameters 
constrain this number between 4 and 50 (INTSCL and ITMSCL). In 1-D 
problems, or if the coarse mesh has only 1 interval in either direction, 
INTSCL = 1 is appropriate. In K calculations and searches, a lower 
value of ITMSCL (e.g., 8) can lower costs. Within the iteration limits, 
the iterations are terminated when: 


- < t > K - 1 

MAXij < CONSCL 


where K is the iteration index. 

If the upper iteration limit is reached without satisfying CONSCL, the 
improved data are accepted for use if convergence has reached CONACC. 
Otherwise, unaccelerated data are used. 

It Is often effective to make CONSCL less than EPP by roughly a factor 
of 10, and to leave CONACC at its default value. Other combinations are 
often used, however. 

If IBFSCL > 0, rebalance iterations are bypassed on the first fluence 
iteration of the first source iteration. This sometimes saves CPU time 
on very difficult problems, and sometimes prevents certain types of 
early iteration failure. On less difficult problems, especially those 
using diffusion acceleration, it may lower efficiency slightly. 

If WS0L0I > 0, fluence acceleration will not be performed on those 
energy groups for which, for all materials of a problem: 


- 5 /<r T < WSOLOI 


This can save unneeded CPU effort without impairing convergence rate. 
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4.5.14 Stabilization 


The partial-current rebalance method requires choice of a "stabilization 
factor," F. The effect of this factor is to adjust the rebalance matrix 
in such a way as to insure positive factors if F > 1.0. The user inputs 
an initial value, WSOLCN, and an increment, WSOLII. If WSOLII > 0, F is 
increased by WSOLII after each rebalance. If WSOLII < 0, F is increased 
by |WSOLIIl only when incipient oscillation is detected. 

The choice of these factors has a very large effect on the running time 
of difficult problems. Some combinations are shown in Table 4-2. If 
diffusion acceleration can be used, this difficult choice is avoided. 


Table 4-2. Typical Stabilization Values 


WSOLCN 

WSOLII 

Comments 

1.0 

0 

Satisfactory for many well-behaved core 
problems which are probably better 
solved by diffusion acceleration. 

1.0 

1.0 

Satisfactory for many difficult fixed- 
source problems 

4.0 

1.0 

One solver of very difficult problem 
uses this 

1.0 

-1.5 

This may be a "best-buy" single choice. 

.5.15 Input Source and Fluence Specification 


For K eff and configuration search problems, the initial source is 
generated internally based on the fission cross sections and the fluence 
guess. For fixed-source problems, the user must supply an external 
source of particles. This can be done by supplying an external source 
file containing an internal or external boundary source, a distributed 
source, or a first-collision source. The external boundary source and 
distributed source can be generated internally by card-image input in a 
few simple cases. At least one non-zero source type must always be 
supplied. 

An external boundary source is indicated by the appropriate choice of 
boundary condition. If input parameter NTBSI > 0, the logical unit 
NTBSI is to contain the information. Otherwise, it is to be found in 
the card-image input. Formats for these inputs are explained elsewhere 
in this region. 
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A distributed source is to be supplied on logical unit NTDSI if NTDSI > 

0 and INPSRM * 0. If INPSRM > 0, NTDSI must point to a scratch device 
onto which a source generated from card images will be placed. 

A first-collision source is to be supplied on NTFCI if NTFCI > 0. This 
source is simply a special type of distributed source, and is specified 
by a special type of distributed source file format. In such a case, 
the file also gives the "uncollided fluence" the scattering of which 
will lead to the source. This fluence is added to the fluence 
calculated by the code in some of the output results. (It is subtracted 
from a fluence guess on NTFLX, if any.) 

Internal boundary sources are indicated by NJNTSR > 0 and/or NINTSR > 0. 
In these cases, internal boundaries are specified in the 14* and 15* 
arrays at which sources input from logical unit NTIBI are located. 

In principle, several types of sources can coexist. Little actual 
experience is available in these areas, however, and such results should 
be carefully checked. 

If KTYPE > 0, a non-zero fluence guess is always required. If NTFLX > 0 
and INPFXM = 0, the fluence is to be supplied on logical unit NTFLX. If 
INPFXM > 0, the fluence guess is to be generated from card images. 
Problems with KTYPE *= 0 are usually started without a fluence guess, 
unless the problem has been partially solved in a previous execution. 


4.5.16 Key Fluence Monitoring 

In many cases, the convergence of all of the fluence data is of less 
interest than convergence of one or a few key fluences. If KEYJN > 0 
and KEYIN > 0, the value of a single key fluence will be printed in the 
fluence-iteration monitor line. If not, the position of maximum fluence 
change at the second fluence iteration will be so monitored. In 
addition, an arbitrary array of key fluences can be specified by 
adjusting NKEYFX. If desired, these fluences can be printed only after 
the convergence of each energy group. 


4.5.17 Energy Boundary Input 

The energy boundaries are used only for transfer to the output files. 
They may be ignored for most applications. The ordering is: 
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Combined Neutron-Photon 

Neutron 

Only 

Photon 

Only 

gMAX 

gMAX 

0 

gMAX 


gMAX 


m 

1 

» 

1 

1 

E\£vr(last neutron group) 

m 

cMAX 

ZlGM 

cMIN 

t-SEUT 

0 



E^ff first photon group) 




Efc^i last photon group) 


4.5.18 Fluence Extrapolation Model 

The choice of mode can have a important influence on both CPU time 
requirements and the accuracy of the solutions. In general, the 0- 
weighted model gives reasonable results for a wide range of problems. 

The linear-zero model is similar to the tried-and-proven method used in 
TWOTRAN-II. It gives well-accepted and rapid solutions to problems such 
as a reactor core not containing severe heterogeneities. It will often 
fail to converge or give inaccurate results for difficult deep 
penetration problems, however. The ordinary weighted model almost 
always converges better than the other models. Its results are usually 
not suitable for K eff calculations, but it is used exclusively by many 
deep-penetration analysts. 
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4.5.19 Alternate Zone Hap Input 

An alternate "combinatorial-geometry" option is available. Rather than 
the usual 8$ description, supply the following: 


" z i h h 

-z 2 i 2 j 2 I 2 J 2 

etc. 

F 0 


Each set of five integers contains: 


-z: The zone number, tagged with a negative 

i -I Indices of lower, lefthand corner of zone in 
j - 1 zone map 

I -I Indices of upper, righthand corner of zone in 
J J zone map 


As many descriptors as required to a limit of IMSJM are used, and the 
remainder of the array is filled with 0. Zones can be overlaid as 
desired. This type of 8$ array must not be intermingled with the 
traditional type within a given problem. When used with variable mesh, 
the zones are understood to be cylindrical in space, although they may 
be discontinuous in the zone map printout. 


4.5.20 Notes On DORT Mesh For An Air-Over-Ground Problem 

When setting up an air-over-ground DORT problem, both radiai and axial 
mesh near the source must be chosen to restrict 1/R 2 attenuation between 
boundaries to about a factor of 2. In the sample problem given in 
below, a basic 100-cm exclusion radius is used, and only one interval is 
needed within that. Then, mesh is chosen such that: 

R, - R. + d M (1-1, 2, .) 

di = d M + Ad 

Ad = 7d i . 1 or in other words, so that no r 5 is more than 
1+7 times d M . 0 < 7 < 1 

(A 7 of .3 is a good choice for all air-over-ground problems.) 
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Table 4-3 shows the radial mesh, where R o =0, d o =100, and 7=0.3. When 
the calculated Ad exceeds 3000, 3000 should be used. The same approach 
is used above the source, as shown in Table 4-4. The mesh downward from 
the source (Table 4-5) is begun the same way, but it will meet the mesh 
upward from the ground (Table 4-6). 

The basic mesh upward from the ground uses a larger value of d 0 , and 
proceeds upward until the Ad it predicts is larger than A7 predicted by 
the downward mesh. The two sets are joined at 6500 in this 
illustration, a compromise between 6096 and 6943. In the actual 
problem, additional intervals are added below 550 to account for ground 
effects. A small interval near the vehicle may be desired, also. 

Meshes for other source heights can be deduced from this illustration. 


Table 4-3. Radial mesh 
away from source. 


R 

Ad 

d 

0 

. 

100 

100 

30 

130 

130 

39 

169 

169 

51 

220 

220 

66 

286 

286 

86 

371 

371 

111 

483 

483 

145 

627 

627 

188 

816 

816 

245 

1,060 

1,060 

310 

1,379 

1,379 

414 

1,792 

1,792 

538 

2,330 

2,330 

699 

3,029 

3,029 

909 

3,937 

3,937 

1,181 

5,119 

5,119 

1,536 

6,654 

6,654 

1,996 

8,650 

8,650 

2,595 

11,246 

11,246 

3,374 

14,619 


Table 4-4. Mesh upward 
from source. 


Z 

Ad 

d 

12,750 

. 

100 

12,850 

30 

130 

12,880 

39 

169 

12,919 

51 

220 

12,970 

66 

286 

13,036 

86 

371 

13,121 

111 

483 

13,233 

145 

627 

13,377 

188 

816 

13.566 

245 

1,060 

13,810 

310 

1,379 

14,129 

414 

1,792 

14,542 

538 

2,330 

15,080 

699 

3,029 

15,779 

909 

3,937 

16,687 

1,181 

5,119 

17,869 

1,536 

6,654 

19,404 

1,996 

8,650 

21,400 

2,595 

11,246 

23,996 

3,374 

14,619 
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Table 4-5. Mesh downward 
from source. 


Table 4-6. Mesh upward 
from ground. 


z 

Ad 

d 

Z 

Ad 

d 

12,750 

. 

-100 

50 

. 

500 

12,650 

-30 

-130 

550 

150 

650 

12,620 

-39 

-169 

700 

195 

845 

12,581 

-51 

-220 

895 

254 

1,098 

12,530 

-66 

-286 

1,148 

330 

1,428 

12,464 

-86 

-371 

1,478 

428 

1,856 

12,379 

-111 

-483 

1,906 

557 

2,413 

12,267 

-145 

-627 

2,463 

724 

3,137 

12,113 

-188 

-816 

3,187 

941 

4,079 

11,934 

-245 

-1,060 

4,128 

1,224 

5,302 

11,690 

-318 

-1,379 

5,352 

1,591 

6,893 

11,371 

-414 

-1,792 

-6,943 

2,068 

8,961 

10,958 

-538 

-2,330 




10,420 

-699 

-3,029 

9,011 

2,688 

11,649 

9,721 

-909 

-3,937 

11,699 

3,495 

15.144 


8,813 

-1,181 

-5,119 - 

7,631 

-1,536 

-6,654 

-6,096 

-1,996 

-8,650 

4,100 

-2,595 

-11,426 


4.6 DORT INPUT AND OUTPUT FILE FORMATS 


The DORT user input and output data files are expressed in formats 
designed according to recommendations of DOE's Committee on Computer 
Code Coordination (CCCC). 17 The particular files and which format they 
use are listed in Section 4.7. Two exceptions, retained for backward 
compatibility, are an optional capability to process a "GIP" cross 
section input file and to produce a "DOT Angular Fluence Tape" as 
output. 

The GIP file is defined exactly as the records labeled "CROSS SECTION 
DATA" in the ORDOSW file (of which only the cross-section portion is 
listed), and has no other record types. The "DOT Ill Angular Fluence 
Tape" is defined in the DOT III User's Manual, 12 and is simulated by 
DORT as accurately as possible. The user should consult Reference 14 
for the full description of the ORDOSW file. 
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C -VSOROOIO 

C VSOR0020 

E ***************************************************************V50R0030 
C REVISED 10 NOV 76 -VS0R0040 

C -VSOR0050 

CF VARSOR -VSOR0060 

CE VARIABLE MESH SOURCE MOMENT DATA -VSOR0070 

C -VSOR0080 

Q***************************************************************V50R0090 
C VSOROIOO 

CD ORDER OF GROUPS IS BY DECREASING ENERGY VS0R0110 

CD I IS THE FIRST-DIMENSION INDEX VSOR0120 

CD J IS THE SECOND-DIMENSION INDEX VSOR0130 

CD JM=1 FOR 1-DIMENSIONAL GEOMETRY VS0R0140 

CD IF ISOP.GT.O, SOURCE IS FIRST-COLLISION TYPE VS0R0I50 

C VS0R0160 

C.VSOR0170 

CS FILE STRUCTURE -VSOR0I80 

CS -VSOR0190 

CS RECORD TYPE PRESENT IF -VS0R0200 

CS .VS0R0210 

CS FILE IDENTIFICATION ALWAYS -VSOR0220 

CS FILE LABEL ALWAYS -VSOR0230 

CS FILE CONTROL ALWAYS -VSOR0240 

CS FILE INTEGER PARAMETERS ALWAYS -VS0R0250 

CS -VSOR0260 

cs **************( REPEAT OVER ALL GROUPS) -VS0R0270 

CS * SOURCE MOMENTS ALWAYS -VSOR0280 

CS **************** -VSOR0290 

C -VSOR0300 

cs **************( REPEAT 0VER ALL GROUPS) -VSOR0310 

CS * SCALAR UNCOLLIDED FLUX ISOP.GT.O -VSOR0320 

CS **************** -VSOR0330 

C -VSOR0340 

C.VS0R0350 

C VSOR0360 

C VSOR0370 

C.VS0R0380 

CR FILE IDENTIFICATION -VS0R0390 

C -VSOR0400 

CL HNAME,(HUSE(I),1*1,2),IVERS -VSOR0410 

C -VSOR0420 

CW 1+3*MULT=NUMBER OF WORDS -VSOR0430 

C -VSOR0440 

CD HNAME HOLLERITH FILE NAME - VARSOR - (A6) -VSOR0450 

CD HUSE(I) HOLLERITH USER IDENTIFICATION - (A6) -VSOR0460 

CD IVERS FILE VERSION NUMBER -VSOR0470 

CD MULT DOUBLE PRECISION PARAMETER -VS0R0480 

CD 1- A6 WORD IS SINGLE WORD -VSOR0490 

CD 2- A6 WORD IS DOUBLE PRECISION WORD -VSOR0500 

C -VS0R0510 









C.VS0R0520 

C VSOR0530 

C VSOR0540 

C.VSOR5550 

C -VSOR0560 

CR FILE LABEL -VS0R0570 

C -VSOR0580 

CL DATE,USER,CHARGE,CASE,TIME,(TITL(I),1*1,12) -VSOR0590 

C -VSOR0600 

CW 17*MULT*NUMBER OF WORDS -VSOR0610 

C -VSOR0620 

CD DATE AS PROVIDED BY TIMER OPTIjN 4 - (A6) -VS0R0630 

CD USER AS PROVIDED BY TIMER OPTION 5 - (A6) -VSOR0640 

CD CHARGE AS PROVIDED BY TIMER OPTION 6 - (A6) -VS0R0650 

CD CASE AS PROVIDED BY TIMER OPTION 7 - (A6) -VSOR0660 

CD TIME AS PROVIDED BY TIMER OPTION 8 - (A6) -VSOR0670 

CD TITL(I) TITLE PROVIDED BY USER - (A6) -VS0R0680 

C -VSOR0690 

C.VS0R0700 

C VSOR0710 

C VS0R0720 

C.---VSOR0730 

CR FILE CONTROL VS0R0740 

C -VSOR0750 

CD IGM,NEUT,JM,LM,IMA,MMA,ISM,IMSISM,ISOP,(IDUM(N),N=1,16) -VS0R0760 

C -VSOR0770 

CW 25-NUMBER OF WORDS -VSOR0780 

C -VSOR0790 

CD IGM NUMBER OF ENERGY GROUPS -VSOR0800 

CD NEUT LAST NEUTRON GROUP -VS0R0810 

CD (IGM IF ALL NEUTRONS, 0 IF ALL GAMMA) -VSOR0820 

CD JM NUMBER OF SECOND-DIMENSION (J) INTERVALS -VS0R0830 

CD LM MAXIMUM LENGTH OF MOMENT EXPANSION -VSOR0840 

CD IMA MAXIMUM NUMBER OF FIRST-DIMENSION INTERVALS -VS0R0850 

CD MMA NUMBER OF BOUNDARY DIRECTIONS -VSOR0860 

CD ISM NUMBER OF I-BOUNDARY SETS -VSOR0870 

CD IMSISM TOTAL NUMBER OF I-INTERVALS, ALL I-SETS -VSOR0880 

CD ISOP UNCOLLIDED FLUX FLAG -VSOR0890 

CD 0 - NO UNCOLLIDED FLUX RECORDS PRESENT -VSOR0900 

CD 1 - UNCOLLIDED FLUX RECORDS PRESENT -VS0R09I0 

CD IDUM(I) ARRAY SET TO 0 -VSOR0920 

C -VSOR0930 

C.VSOR0940 

C VSOR0950 

C VSOR0960 

C.VS0R0970 

CR FILE INTEGER PARAMETERS -VS0R0980 

C -VS0R0990 

CL (LMBIG(IG),IG*1,IGM), -VSORIOOO 

CL *(IMBIS(IS),IS*1,ISM),(ISET(J),J-l,JM) -VSORIOIO 

C -VSOR1020 

CW IGM+ISM+JM-NUMBER OF WORDS -VSOR1030 
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C -VS0R1040 

CD LMBIG(IG) LENGTH OF MOMENT EXPANSION FOR GROUP IG -VSOR1050 

CD IMBIS(IS) NUMBER OF INTERVALS IN ISET IS -VS0R1060 

CD ISET(J) I-SET ASSIGNED TO INTERVAL J -VS0R1070 

C -VSOR1080 

C.VS0R1090 

C VSORllOO 

C VSORlllO 

C.VSOR1120 

CR SOURCE MOMENTS VSOR1130 

C -VSOR1140 

CL ((SORM(I,L),1=1,IMS),L=1,LMS) -VSOR1150 

C -VSOR1160 

CW IMS*LMS=NUMBER OF WORDS -VS0R1170 

C -VSOR1180 

C DO 1 J=1,JM -VSOR1190 

C 1 READ(N) *LIST AS ABOVE* -VSOR1200 

C -VS0R1210 

CD SORM SOURCE BY INTERVAL AND MOMENT INDEX -VSOR1220 

CD IMS IMBIS(IS) FOR IS CORRESPONDING TO J -VS0R1230 

CD LMS LMBIG(IG) -VS0R1240 

C -VS0R1250 

C. VSOR1260 

C VSOR1270 

C VSOR1280 

C----------VS0R1290 

CR SCALAR UNCOLLIDED FLUX -VS0R1300 

C -VS0R1310 

CL (FLUM(1),1=1,IMS) -VSOR1320 

C -VS0R1330 

CW IMS=NUMBER OF WORDS -VSOR1340 

C -VSOR1350 

C DO 1 J=1,JM -VSOR1360 

C 1 READ(N) *LIST AS ABOVE* -VS0R1370 

C -VS0R1380 

CD FLUX UNCOLLIDED FLUX BY INTERVAL -VSOR1390 

C -VSOR1400 

C.VSOR1410 

C VSOR1420 

C VSOR1430 

C VS0R1440 

C VS0R1450 

C END VS0R1460 

C -VRFLOOIO 

C VRFL0020 

C***************************************************************yRpj_QQ3Q 

C REVISED 10 NOV 76 -VRFL0040 

C -VRFL0050 

CF VARFLM -VRFL0060 

CE VARIABLE MESH FLUX MOMENT DATA WITH BOUNDARY FLUXES -VRFL0070 

C -VRFL0080 
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£***************************************************************y^p[_QQ9Q 

C VRFL0100 

CD ORDER OF GROUPS IS BY DECREASING ENERGY VRFLOllO 

CD I IS THE FIRST-DIMENSION INDEX VRFL0120 

CD J IS THE SECOND-DIMENSION INDEX VRFL0130 

CD JM-1 FOR 1-DIMENSIONAL GEOMETRY VRFL0140 

C VRFL0150 

C.VRFL0160 

CS FILE STRUCTURE -VRFL0170 

CS -VRFL0180 

CS RECORD TYPE PRESENT IF -VRFL0190 

CS . VRFL0200 

CS FILE IDENTIFICATION ALWAYS -VRFL0210 

CS FILE LABEL ALWAYS -VRFL0220 

CS FILE CONTROL ALWAYS -VRFL0230 

CS FILE INTEGER PARAMETERS ALWAYS -VRFL0240 

CS FILE REAL PARAMETERS ALWAYS -VRFL0250 

CS -VRFL0270 

CS **************( R ppE AT OVER ALL GROUPS) -VRFL0280 

CS * FLUX MOMENTS ALWAYS -VRFL0290 

CS * BOUNDARY DIRECTIONAL FLUX ALWAYS -VRFL0300 

Cs **************** -VRFL0310 

C VRFL0320 

C...—VRFL0330 

C VRFL0340 

C VRFL0350 

C.-.---VRFL0360 

CR FILE IDENTIFICATION -VRFL0370 

C -VRFL0380 

CL HNAME,(HUSE(I),1=1,2),IVERS -VRFL0390 

C -VRFL0400 

CW 1+3*MULT=NUMBER OF WORDS -VRFL0410 

C -VRFL0420 

CD HNAME HOLLERITH FILE NAME VARFLM - (A6) -VRFL0430 

CD HUSE(I) HOLLERITH USER IDENTIFICATION - (A6) -VRFL0440 

CD IVERS FILE VERSION NUMBER -VRFL0450 

CD MULT DOUBLE PRECISION PARAMETER -VRFL0460 

CD 1- A6 WORD IS SINGLE WORD -VRFL0470 

CD 2- A6 WORD IS DOUBLE PRECISION WORD -VRFL0480 

C VRFL0490 

C.VRFL0500 

C VRFL0510 

C VRFL0520 

C.VRFL0530 

C -VRFL0540 

CR FILE LABEL -VRFL0550 

C -VRFL0560 

CL DATE,USER,CHARGE,CASE,TIME,(TITL(I),1=1,12) -VRFL0570 

C -VRFL0580 

CW 17*MULI-NUMBER OF WORDS -VRFL0590 

C -VRFL0600 
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CD DATE AS PROVIDED BY TIMER OPTION 4 - (A6) -VRFL0610 

CD USER AS PROVIDED BY TIMER OPTION 5 - (A6) -VRFL0620 

CD CHARGE AS PROVIDED BY TIMER OPTION 6 - (A6) -VRFL0630 

CD CASE AS PROVIDED BY TIMER OPTION 7 - (A6) -VRFL0640 

CD TIME AS PROVIDED BY TIMER OPTION 8 - (A6) -VRFL0650 

CD TITL(I) TITLE PROVIDED BY USER - (A6) -VRFL0660 

C -VRFL0670 

C. VRFL0680 

C VRFL0690 

C VRFL0700 

C.VRFL0710 

CR FILE CONTROL -VRFL0720 

C -VRFL0730 

CD IGM,NEUT,JM,LM,IMA,MMA,ISM,IMSISM,ISBT,ITER,(IDUM(N),N=1,15)-VRFL0740 
C -VRFL0750 

CW 25=NUM8ER OF WORDS -VRFL0760 

C -VRFL0770 

CD IGM NUMBER OF ENERGY GROUPS -VRFL0780 

CD NEUT LAST NEUTRON GROUP -VRFL0790 

CD (IGM IF ALL NEUTRONS, 0 IF ALL GAMMAS) -VRFL0800 

CD JM NUMBER OF SECOND-DIMENSION (J) INTERVALS -VRFL0810 

CD LM MAXIMUM LENGTH OF MOMENT EXPANSION -VRFL0820 

CD IMA MAXIMUM NUMBER OF FIRST-DIMENSION INTERVALS -VRFL0830 

CD MMA NUMBER OF BOUNDARY DIRECTIONS -VRFL0840 

CO ISM NUMBER OF I-BOUNDARY SETS -VRFL0850 

CD IMSISM TOTAL NUMBER OF I-INTERVALS, ALL I-SETS -VRFL0860 

CD ISBT I-SET FOR SYSTEM BOUNDARIES -VRFL0870 

CD ITER OUTER ITERATION NUMBER AT WHICH FLUX WAS -VRFL0880 

CD WRITTEN -VRFL0890 

CD IDUM(I) ARRAY SET TO 0 -VRFL0900 

C -VRFL0910 

C.-.--VRFL0920 

C VRFL0930 

C VRFL0940 

C.VRFL0950 

CR FILE INTEGER PARAMETERS -VRFL0960 

C -VRFL0970 

CL (LMBIG(IG),IG=1,IGM), -VRFL0980 

CL *(IMBIS(IS),IS=1,ISM),(ISET(J),J*1,JM) -VRFL0990 

C -VRFLIOOO 

CW IGM+1SM+JM=NUMBER OF WORDS -VRFLIOIO 

C -VRFL1020 

CD LMBIG(IG) LENGTH OF MOMENT EXPANSION FOR GROUP IG -VRFL1030 

CD IMBIS(IS) NUMBER OF INTERVALS IN ISET IS -VRFL1040 

CD ISET(J) I-SET ASSIGNED TO INTERVAL J -VRFL1050 

C -VRFL1060 

C.VRFL1070 

C VRFL1080 

C VRFL1090 

C.VRFL1100 

CR FILE REAL PARAMETERS -VRFL1110 

C -VRFL1120 
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CL 

(Z(J),J=l,JM1),((R(I,IS),1*1,IM1),IS=1,ISM), 

-VRFL1130 

CL 

*(ENER(IG), 

, IG=1,IGM),EMIN,ENEUT,EV,DEVDK,EFFK,POWER, 

-VRFL1140 

CL 

*(DUMRLH), 

,1-1,13) 

-VRFL1150 

C 



-VRFL1160 

CW 

JM+IMSISM+ISM+IGM+20=NUMBER OF WORDS 

-VRFL1170 

C 



-VRFL1180 

CD 

Z(J) 

J-INTERVAL BOUNDARIES 

-VRFL1190 

CD 

R(I,IS) 

I-INTERVAL BOUNDARIES FOR I-SET I 

-VRFL1200 

CD 

ENER(IG) 

TOP ENERGY BOUNDARY OF GROUP IG 

-VRFL1210 

CD 

EMIN 

BOTTOM ENERGY BOUNDARY OF GROUP IGM 

-VRFL1220 

CD 

ENEUT 

BOTTOM ENERGY BOUNDARY OF GROUP NEUT 

-VRFL1230 

CD 


(0 IF NEUT=0*) 

-VRFL1240 

CD 

EV 

EIGENVALUE 

-VRFL1250 

CD 

DEVDK 

DERIVATIVE OF EV VS. EFFK 

-VRFL1260 

CD 

EFFK 

EFFECTIVE MULTIPLICATION FACTOR 

-VRFL1270 

CD 

POWER 

POWER (WATTS) TO WHICH FLUX IS NORMALIZED 

-VRFL1280 

CD 

DUMRL 

ARRAY SET TO 0 

-VRFL1290 

CD 

JM1 

JM+1 

-VRFL1300 

CD 

IM1 

IMBIS(IS)+1 

-VRFL1310 

C 



-VRFL1320 

C-- 



—VRFL1330 

C 



VRFL1340 

C 



VRFL1350 

C 



VRFL1360 

C 



VRFL1370 

C-- 



—VRFL1380 

CR 

FLUX 

MOMENTS 

-VRFL1390 

C 



-VRFL1400 

CL 

((FLUM(I,L), 

,1-1,IMS),L-l,LMS) 

-VRFL1410 

C 



-VRFL1420 

CW 

IMS*LMS=NUMBER OF WORDS 

-VRFL1430 

C 



-VRFL1440 

C 

DO 1 J=1, JM 


-VRFL1450 

C 1 

READ(N) *LIST AS ABOVE* 

-VRFL1460 

C 



-VRFL1470 

CD 

FLUM 

FLUX BY INTERVAL AND MOMENT INDEX 

-VRFL1480 

CD 

IMS 

IMBIS(IS) FOR IS CORRESPONDING TO J 

-VRFL1490 

CD 

LMS 

LMBIG(IG) 

-VRFL1500 

C 



-VRFL1510 

C-- 



—VRFL1520 

c 



VRFL1530 

c 



VRFL1540 

C-- 



—VRFL1550 

CR 

BOUNDARY DIRECTIONAL FLUX 

-VRFL1560 

C 



-VRFL1570 

CL 

((FIO(M,J),M* 

■1,MMA),J-1,JM), ((FJO(M,I),M=1,MMA),1=1,IMB) 

-VRFL1580 

C 



-VRFL1590 

CW 

MMA*(JM+IMB)=NUMBER OF WORDS 

-VRFL1600 

C 



-VRFL1610 

CD 

FIO 

DIRECTIONAL FLUX OUTGOING BY DIRECTION AND 

-VRFL1620 

CD 


J-INTERVAL 

-VRFL1630 
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CD FJO DIRECTIONAL FLUX OUTGOING BY DIRECTION AND -VRFL1640 

CD I-INTERVAL. FJO-O FOR A 1-D GEOMETRY -VRFL1650 

CD IMB IMBIS(IS) FOR IS CORRESPONDING TO ISBT -VRFL1660 

C -VRFL1670 

C.VRFL1680 

C VRFL1690 

C VRFL1700 

C VRFL1710 

C VRFL1720 

C END VRFL1730 

C -BNDSOOIO 

£***************************************************************gHJQ$QQ20 

C PROPOSED 8 OCT 76 -BNDS0030 

C -BNDS0040 

CF BNDRYS -BNDS0050 

CE MULTIPLE BOUNDARY SOURCE DATA -BNDS0060 

C -BNDS0070 

£***************************************************************gtyQSQQgQ 

C BNDS0090 

CD ORDER OF GROUPS IS BY DECREASING ENERGY BNDS0100 

CD I IS THE FIRST-DIMENSION INDEX BNDSOllO 

CD J IS THE SECOND-DIMENSION INDEX BNDS0120 

CD JM=1 FOR 1-DIMENSIONAL GEOMETRY BNDS0130 

CD NINTSR=NJNTSR=1 FOR EXTERNAL BOUNDARY DATA, BNDS0140 

CD AND Z(l)=R(l)-0 IN THAT CASE BNDS0150 

C BNDS0160 

C. BNDS0170 

CS FILE STRUCTURE -BNDS0180 

CS -BNDS0190 

CS RECORD TYPE PRESENT IF -BNDS0200 

CS . ----.BNDS0210 

CS FILE IDENTIFICATION ALWAYS -BNDS0220 

CS FILE LABEL ALWAYS -BNDS0230 

CS FILE CONTROL ALWAYS -BNDS0240 

CS MESH DESCRIPTION ALWAYS -BNDS0250 

CS -BNDS0260 

cs **************(repeat OVER ALL GROUPS) -BNDS0270 

CS * I-BOUNDARY DIRECTIONAL SOURCE NINTSR.GT.O -BNDS0280 

CS * J-BOUNDARY DIRECTIONAL SOURCE NJNTSR.GT.O -BNDS0290 

£$ **************** -BNDS0300 

C -BNDS0310 

C..-.BNDS0320 

C BNDS0330 

C BNDS0340 

C.BNDS0350 

CR FILE IDENTIFICATION -BNDS0360 

C -BNDS0370 

CL HNAME,(HUSE(I),1=1,2),IVERS -BNDS0380 

C -BNDS0390 

CW 1+3*MULT=NUMBER OF WORDS -BNDS0400 

C -BNDS0410 
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CD HNAME HOLLERITH FILE NAME - BNDRYS - (A6) -BNDS0420 

CD HUSE(I) HOLLERITH USER IDENTIFICATION - (A6) -BNDS0430 

CD IVERS FILE VERSION NUMBER -BNDS0440 

CD MULT DOUBLE PRECISION PARAMETER -BNDS0450 

CD 1- A6 WORD IS SINGLE WORD -BNDS0460 

CD 2- A6 WORD IS DOUBLE PRECISION WORD -BNDS0470 

C -BNDS0480 

C.BNDS0490 

C BNDS0500 

C BNDS0510 

C.-.BNDS0520 

CR FILE LABEL -BNDS0530 

C -BNDS0540 

CL DATE,USER,CHARGE,CASE,TIME,(TITL(I),1=1,12) -BNDS0550 

C -BNDS0560 

CW 17*MULT=NUMBER OF WORDS -BNDS0570 

C -BNDS0580 

CD DATE AS PROVIDED BY TIMER OPTION 4 - (A6) -BNDS0590 

CD USER AS PROVIDED BY TIMER OPTIOfl 5 - (A6) -BNDS0600 

CD CRARGE AS PROVIDED BY TIMER OPTION 6 - (A6) -BNDS0610 

CD CASE AS PROVIDED BY TIMER OPTION 7 - (A6) -BNDS0620 

CD TIME AS PROVIDED BY TIMER OPTION 8 - (A6) -BNDS0630 

CD TITL(I) TITLE PROVIDED BY USER (A6) -BNDS0640 

C -BNDS0650 

C---- BNDS0660 

C BNDS0670 

C BNDS0680 

C-- BNDS0690 

CR FILE CONTROL -BNDS0700 

C -BNDS0710 

CL IGM,JM,IMA,MMA,NINTSR,NJNTSR,(IDUM(I),1=1,19) -BNDS0720 

C -BNDS0730 

CW 25-NUMBER OF WORDS -BNDS0740 

C -BNDS0750 

CD IGM NUMBER OF ENERGY GROUPS -BNDS0760 

CD JM NUMBER OF SECOND-DIMENSION (J) INTERVALS -BNDS0770 

CD IMA NUMBER OF FIRST-DIMENSION INTERVALS -BNDS0780 

CD MMA NUMBER OF BOUNDARY DIRECTIONS -BNDS0790 

CD NINTSR NUMBER OF I-BOUNDARY SOURCES -BNDS0800 

CD NJNTSR NUMBER OF J-BOUNDARY SOURCES -BNDS0810 

CD IDUM(I) ARRAY SET TO 0 -BNDS0820 

C -BNDS0830 

C. BNDS0840 

C BNDS0850 

C BNDS0860 

C.-.-.--BNDS0870 

CR MESH DESCRIPTION -BNDS0880 

C -BNDS0890 

CL (Z(J),0=1,NJNTSR),(R(I),1=1,NINTSR) -BNDS0900 

C -BNDS0910 

CW JM+IMA-NUMBER OF WORDS -BNDS0920 

C -BNDS0930 
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CD Z(J) POSITION FROM WHICH J-BOUNDARY SOURCES TAKEN -BNDS0940 

CD R(I) POSITION FROM WHICH I-BOUNDARY SOURCES TAKEN -BNDS0950 

C -BNDS0960 

C.-.BNDS0970 

C BNDS0980 

C BNDS0990 

C.BNDSIOOO 

CR I-BOUNDARY DIRECTIONAL SOURCES -BNDS1010 

C -BNDS1020 

CL (((BIJ(M,J,N),M=1,MMA),J=1,JM),N=1,NINTSR) -BNDS1030 

C -BNDS1040 

CW MMA*JM*NINTSR=NUMBER OF WORDS -BNDS1050 

C -BNDS1060 

CD BIJ(M,J,N) SOURCE IN DIRECTION M, INTERVAL J, SET N -BNDS1070 

C -BNDS1080 

C.BNDS1090 

C BNDS1100 

C BNDS1110 

C. BNDS1120 

CR J-BOUNDARY DIRECTIONAL SOURCES -BNDS1130 

C -BNDS1140 

CL (((BJI(M,I,N),M=1,MMA),1=1,IMA),N=1,NJNTSR) -BNDS1150 

C -BNDS1160 

CW MMA*IMA*NJNTSR=NUMBER OF WORDS -BNDS1170 

C -BNDS1180 

CD BJI(M,I,N) SOURCE IN DIRECTION M, INTERVAL I, SET N -BNDS1190 

C -BNDS1200 

C - BNDS1210 

C BNDS1220 

C BNDS1230 

C BNDS1240 

C BNDS1250 

C END BNDS1260 

NOTE: This is only the cross section portion of the ORDOSW file. 

C. 

c 

CR PRINCIPAL CROSS SECTION DESCRIPTION 

C 

CL (PCSD(IH),IH=1,IHT) 

C 

CW NUMBER OF WORDS = MULT*IHT 

C 

CD PCSD(IH) PRINCIPAL CROSS SECTION LABELS - (A6) 

C 

C.-. 


c- 

c 
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CR NUCLIDE IDENTIFICATION 

C 

CL (NUC(MT),MT*1,MTM) 

C 

CW NUMBER OF WORDS - MULT*MTM 
C 

CD NUC(MT) NUCLIDE LABELS - (A6) 

C 

C. 


c- 

c 


CR 

CROSS SECTION DATA 

CL 

(<SIG(IH,MT),IH*1, 

,IHP),MT«1,MTM) 

CW 

NUMBER OF WORDS = 

IHP*MTM 

CD 

SIG(IH,MT) 

CROSS SECTION DATA BY TABLE POSITION, THEN BY 

CD 

NUCLIDE. TABLE POSITIONS CONTAIN - - 

CD 

1 TO IHT-5 

ARBITRARY DATA, SPECIFIED BY USER, OR ABSENT 

CD 

IHT-4 

FISSION YIELD FRACTION (RECOMMENDED) 

CD 

IHT-3 

FISSION CROSS SECTION (RECOMMENDED) 

CD 

IHT-2 

ABSORPTION CROSS SECTION 

CD 

IHT-] 

NEUTRON PRODUCTION CROSS SECTION 

CD 

IHT-0 

TOTAL CROSS SECTION 

CD 

CD 

CD 

IHT+1 

UPSCATTER FROM GROUP IG+(IHS-1-IHT) TO IG 

CD 

IHS-1 

UPSCATTER FROM GROUP IG+1 TO IG 

CD 

IHS 

SELF SCATTER FOR GROUP IG 

CD 

CL 

CD 

IHT+1 

DOWNSCATTER FROM GROUP IG-1 TO IG 

CD 

IHM 

DOWNSCATTER FROM GROUP IG+IHS-IHM TO IG 

CD 

IHM+1 

TOTAL SCATTER FROM GROUP G TO ALL GROUPS 

CD 


(PRESENT ONLY IF IHS IS GREATER THAN IHT+1) 

CD 



CD 


IHS MAY BE IHT+1 IF UPSCATTER IS ABSENT. 

CD 


TRANSFERS FROM GROUPS LESS THAN 1 OR GREATER 

CD 


THAN IGM ARE ZERO. POSITIONS LESS THAN OR 

CD 


EQUAL TO IHT ARE ZERO FOR PL COMPONENTS 

CD 


OTHER THAN THE OTH. 

CD 


EACH COMPONENT OF A PL SET IS TREATED AS A 

CD 


SEPERATE NUCLIDE. THUS, M SETS WOULD 

CD 


COMPRISE M*NQUAD+M NUCLIDES 

CD 

C 

IHP 

EQUALS IHM UNLESS IHS.GT.IHT+1, THEN IHM+1 
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4.7 LOGICAL UNIT REQUIREMENTS 


4.7.1 Input and Output Data Files 

All of the user input and output data files are expressed in formats 
designed according to recommendations of DOE's Committee on Computer 
Code Coordination (CCCC). 17 The specifications of these files are 
contained in Section 4.6. Two exceptions, retained for backward 
compatibility, are an optional capability to process a "GIP" cross 
section input file and to produce a "DOT Angular Fluence Tape" as 
output. 

The GIP file is defined exactly as the records labeled "CROSS SECTION 
DATA" in the ORDOSW file, and has no other record types. The "DOT Ill 
Angular Fluence Tape" is defined in the DOT III User's Manual, 12 and is 
simulated by DORT as accurately as possible. An alternate format is 
used when the albedo generation option is used. 

The correspondence of file type to use in the code is: 


SYMBOL FILE TYPE USE 


NTFLX 

VARFLM 

NTFOG 

VARFLM 

NTSIG 

ORDOSW or GIP 

NTBSI 

BNDRYS 

NTDSI 

VARSOR 

NTFCI 

VARSOR 

NTIBI 

BNDRYS 

NT I BO 

BNDRYS 

NTDIR 

DOT III "Angular 
Fluence Tape" 

NTDSO 

VARSOR 


Fluence and moment input 
Fluence and moment output 
Cross section input 
External boundary source input 
Distributed source moment input 
First collision source input 
Internal boundary source input 
Internal boundary fluence output 

Directional fluence output 
Directional fluence moment output 


Logical units 5 and 6 are also used by DORT as the standard card image 
input and printed output units respectively. 


4.7.2 Scratch Data Sets 

The following lists the scratch data sets, the length of each record, 
and the number of records: 
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Logical 

Unit 

Symbol 


Description 


Record Leng 
Cl record) 


th 


Nunber of 
Records 
(nrec) 


Required If: 


NDSIG 
NOBTL 
MDBS I 


NDSIN 

NOBFX 

NDFIJ 


Scalar Fluence Scratch 


JNA*JM 


Cross-Section Scratch 
Balance Table Scratch 
Boundary Source Scratch 


Fluence Scratch 
Total Source Scratch 
IN-Source Scratch 
Boundary Fluence Scratch 
Scalar Fluence Scratch 


IHM*MTH 

NREG*10+IZM+8 

(IHA+JM)*MMA 

(IMA*NJNTSR 

+JM*NINTSR)*MHA 

+ICNJCM+NREG 

IHA*LN*JBLK1 

IMA*tJ**JBlKI 

1HA*LH*JBLK1 

(IMA+JN)*MMA 
IMA*JM 


NJBLK*IGM 

NJBLK 

NJBLK 


Not Used at 
this time 
Always 
IRED / 0 
NTBSI > 0 
(NINTSR > 0 


NJNTSR 
NJBLK > 0 
NJBLK > 0 
NJBLK > 0 
Always 
Always 


0) 


NOTE: The symbol denotes the word "number." 


JBLK1 = #J levels per J block, 1 < JBLK1 < JM 

NJBLK = #J blocks, MINBLK < NJBLK < MAXBLK (NJBLK = 0 if fluences are 
stored in working memory) 

LM - maximum number of moments (including 0 th ) in spherical 
harmonic expansion, LM = 1 + |I$CT|*((|ISCT|+3))/2 
NREG = number of edit regions 
IZM = number of material zones 


For unit 84, If NTBSI > 0 and NINTSR > 0, for example, 
this file will have IGM + IGM records. 


The number of J blocks, NJBLK, is controlled by input data. When 
default values of MINBLK and MAXBLK are used, the code will attempt to 
hold all fluence and source data in fast memory, i.e., NJBLK = 0. 

Failing in this, it will attempt to allocate space for the entire mesh 
to be held as 1 block in the user-buffer area, i.e., NJBLK = 1. Failing 
in this, the space mesh is broken into as many blocks as required. 

NJBLK is restricted to limits specified by MINBLK and MAXBLK. 


4.8 DETAILS OF DORT JOB REQUIREMENTS 


4.8.1 CPU Time Usage 

A reasonably accurate time limit should be calculated and entered as 
TMAX for all problems which run more than a few minutes. The maximum 
time given to the operator or operating system should be somewhat larger 
than TMAX. This allows DORT to complete Its I/O and data summaries if 
the time is exceeded during the iteration phase. The CPU time required, 
C, can be estimated by the following formula: 
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™ - £ £ £ £ £ mm 

P G F J I 


where 

FW « fluence work 

MM * number of directions 

I,J ■ space-mesh indices 

F - inner (fluence) iteration index 

G - energy group 

P - outer (source) iteration index 

FR - fluence rate on the reference machine, the IBM 370/3033 
SF ■ the speed factor for the machine used 

A « overhead (I/O, problem setup, and summary activities) 

The value of A is typically 0 to 2 minutes on the IBM 360/91. Suggested 
speed factors are shown in Table 4-7. 


Table 4-7. Speed Factor 
(Based on IBM 709 - 1) 


CDC 

7600 

250 

IBM 

360/195 

250 

IBM 

370/3033 

150 

IBM 

360/91 

150 

CDC 

6600 

30 

IBM 

7094 

10 

IBM 

7090 

5 


The value of FR depends somewhat upon the class of problem solved. FR 
is about 1.0 million fluences per minute for large P 3 problems using the 
weighted difference model. The linear-zero model sometimes runs a bit 
faster, and a P 0 calculation runs as much as 40% faster. The IBM speeds 
assume the use of optional assembler language fluence routines. 
Assembler language routines are not available for CDC use. Expert 
opinions offered to us differ as to how much the CDC performance would 
benefit from the use of assembler language. 
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4.8.2 System Buffer Space (NBUF) and Memory Requirements 


A discussion on the system buffer space is given in Reference 14 for 
many of the machines on which the DORT code is operable. This parameter 
is machine dependent and the interested user should consult this 
reference. The use of the default given in the input will usually give 
the user adequate buffer space. 

The user must understand the various storage arrangements in order to 
provide enough space for data storage. An exact formula for the amount 
of storage required is not practical. Numerous small arrays are 
assigned, and arrays overlap in storage in many cases. Approximate 
methods have proven satisfactory, however. A detailed presentation of 
the memory requirements can be found in Reference 14. 


4.8.3 Problem Printed Output 

Each DORT job starts with a notice of the date and time, followed by a 
record of the particular version of the code being used, and messages 
from the programmer informing the user of warnings or special features. 
The title supplied by the user as input data is next. As each array of 
input data is read, a notice of the array number and length is made. 

The first array edits are of the 61S (logical unit assignments), 62S 
(integer control parameters), and 63* (real control parameters). The 
initial allocation of fast memory and (CDC only) slow memory are listed, 
followed by primary dimension-setting arrays, mixing table information, 
material assignment, importance, fission spectrum, and search fractions. 

The next section is a set of data describing the directional remesh 
process, MM < 0. These tables are largely for the benefit of 
programmers in diagnosing troublesome problems. The quadrature set 
assignment by super-zone is an input array. The transition table 
indicates which transition set governs the transition from the row M-Set 
to the column M-Set. 

The unpacking arrays follow; one for each M-Set. These integers simply 
indicate places in a full |MM|-direction array where data corresponding 
to a smaller M-Set can be kept without being overwritten. 

The actual transition sets are given next. Each set consists of two 
columns of integers. Each position in each column corresponds to a 
direction in the corresponding M-Set. The remeshing routine decodes the 
integers in order to determine how to construct fluences in a new M-Set 
which correspond to a previous M-Set. Since the tables are given in 
unpacked form, as needed by the code, unused positions are filled with 
"- 1 ." 

The direction sets are listed, together with "BETA" (the p-flow coupling 
term), ft- mates, r-mates, and level-mates. The /*-mate of direction (p,r) 
is direction ( -/*,r). The r-mate is direction (/i,-r). The level-mate 
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is the first direction in the »?-level containing the r-Mate. 

Unsymmetric direction sets may not possess all of these mates. If a 
mate required for a boundary condition can not be found, an error flag 
is set. 

The values of the coupling set C mij are edited, followed by the J fine- 
mesh and I fine-mesh sets. The real values of super-mesh and coarse- 
mesh boundaries are interpreted into integer assignment tables edited at 
this point. The total size of these meshes, number of super groups, and 
of edit zones are given, together with related input array edits. 

Maps of the zone and material assignments are given, together with the 
integral values of the unnormalized input sources by group, with the 
total as group IGM + 1. A table of storage usage gives data useful to 
the programmer, as well as items needed in adjusting the input data, as 
discussed elsewhere. 

A source iteration monitor line ends each source iteration, and initial 
values are indicated in an "iteration 0" line. Entries on this line 
are: 


ITN Source iteration number 

FIX Number of fluence iterations completed for this source 

iteration 

CUM Cumulative number of source iterations 

CNV 10*IXX + IFCONV 

IXX as noted earlier in Section 4.5.7 
IFCONV *= 0 Source iterations are to continue 

*= 1 One more iteration is required 

= 2 Iterations are to stop at once 

- 3,4,5 As in 0,1,2, but configuration 
recalculation is required 
ACC 100*ISR + 10*NEWCFG + IACX 

ISR =0 No eigenvalue extrapolation was performed 
■= 1 Linear eigenvalue extrapolation was 
performed 

■ 2 Nonlinear eigenvalue extrapolation was 

performed (2-point) 

■ 3 Nonlinear eigenvalue extrapolation was 

performed (3-point) 

NEWCFG * 0 Old configuration is to be used 

= 3 New configuration is to be used 

IACX “ 0 Extrapolation of fluences was bypassed 

* 1 Extrapolation of fluences was performed 

IFX I-position of maximum fluence change between source 

iterations 

JFX J-position of maximum fluence change between source 

iterations 

GFX Group of maximum fluence change between source 

iterations 

EV Eigenvalue edit 
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K 

K-effective edit 


• 

K-CNV 

K convergence, c K 


FSN-CNV 

Fission convergence, e D 



FLX-CNV 

Fluence convergence, « F 



GRP-CNV 

Group-convergence, « G 



SRH-CNV 

Search convergence, « s 



UPS-CNV 

Upscatter convergence, < u 



EXTRAP 

Fission extrapolation factor 



TIME 

Time iteration was completed 



The interpretations of EV and K are: 



KTYPE 

EV edit 

Kedit 



0 ZVvo't (sm for adjoint) SO'i/a^ 

1 


2,3,4 search eigenvalue 


If the X's do not sum to 1, K will differ from EV in a K-calculation by 
a ratio equal to the sum of X. Even if X is precisely normalized to I 
by selecting the input value NOFIS - 0, EV and K may be slightly 
different due to roundoff. 

As each fluence iteration is performed on each energy group, another 
monitor line is printed. It contains: 


GRP Energy group number 

ITN Fluence iteration number 

IMFD I-position of maximum fluence change 

JMFD J-position of maximum fluence change 

MX FX DV Relative maximum fluence change 

MX DV FX Most rapidly changing fluence value 

REBL Number of rebalance iterations - a negative value means 
the rebalance factors were not used 

REBL ERR Maximum relative change in rebalance factors in the last 
iteration 


4-62 







MAX REBL Largest amount by which any factor deviates from 1 

GRP REBL Amount by which groupwise rebalance factor (whether used 
or not) deviates from 1 

VOLM ERR Volumetric convergence, discussed earlier, except that 
absolute value is not used 

KEY FLUX Value of single key fluence requested by input data, 
after acceleration 

NEGFIX Maximum fraction of negative total source at any 
position, if NEGFIX - 1 

SOURCE Total of all sources into a group, including external 
boundary sources 

TIME The time at which group iteration is begun is given at 
the end of the heading column. Arbitrary diagnostic 
information is given below the time indication. 


Iterations performed using diffusion theory will provide only the first 
six items. Edits of key fluence values and/or convergence by region may 
follow each iteration or the set of iterations for each group, according 
to the options chosen. The interpretation of fluence convergence also 
depends on options chosen, as discussed earlier. 

If a dimension search has been performed, the final dimensions are 
edited. Fluence and fission source edits follow, together with activity 
edits by interval and region. 

System balance tables follow by group and region. Group and system 
totals are given as IGM + 1 and NREG +1. The columns are largely self- 
explanatory. One may note that an external boundary source is external 
to the system, and is, therefore, included in these tables as a flow at 
the corresponding boundary. Flow and leakage signs are such that a 
positive value is outward from the region. Fission source is source 
used to calculate the fluence, while fission rate is the fission which 
results from the fluences. They will tend to differ by K times the sum 
over g of the L in a K-calculation. Inscatter and outscatter are 
scatter to and from the energy group. They should, in general, be equal 
in neutron-only problems. This will not be true in coupled n-7 
problems. The outscatter is calculated from: 


outscatter = collisions - selfscatter - absorption 


and will be valid only if the absorption cross section meets the balance 
condition. 
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The edit of selfscatter per collision is valuable in judging the 
difficulty of converging fluences for a given energy group. In general, 
values larger than 0.85 may give the PCR fluence acceleration 
difficulty. The average density factor is collision weighted. 

The value of OUT/IN approaches unity for well-converged problems. It 
is: 


_ Collision + DB 2 Loss + Positive Boundary Outflow _ 

Fixed Source + Fission Source + Inscatter + Negative Boundary Outflow 


Sources, flows, leakage, and OUT/IN may not be correct in the case of 
groups in which no iterations are performed. 

The fluences, as well as balance table information which depend on them, 
are not divided by K e#f , and will, in general, tend to vary according to 
K eff . Some users speak of this condition as "fluences normalized 
according to K." 

Each problem ends with a summary of clock and CPU time binned according 
to major sections of the code. Depending on configuration, some bins 
may not have labels. These are for diagnostic information only. 

Some output may not appear in certain problems, depending on the options 
chosen. The use of NTPRT can alter the order of printing on some 
systems, or can transfer some output items to alternate output devices. 


4.9 PROGRAMMER INFORMATION 


4.9.1 Inter-machine Adaptability 

The DORT code is intended to be easily adaptable to any type of 
sophisticated computer, and yet to take advantage of certain localized 
structural features which may be machine-dependent. 

In general, the guidelines of ANS-STD.3-197I 16 are followed. This 
requires general adherence to a simple, standard FORTRAN language except 
where deviations provide important improvements in capability and can be 
documented. In addition, machine-dependent features have been kept 
localized and have not been included in the subroutines which perform 
actual computation. 

The recommended procedures of the Committee on Computer Code 
Coordination (CCCC) 15 - 17 have been followed where practical. Compliance 
with these standards has been incomplete where cost was prohibitive, the 
nature of the codes did not allow it, or the expected level of 
performance could not be obtained in that fashion. 
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Where minor or certain machine-dependent features are required, 
alternative features are enclosed in pairs of 3-character "language 
flags." The alternative statements remain in the source program, with 
inappropriate sections transformed into comment statements. If the code 
is set up for IBM operation, for example, it might contain: 

CIB 

ENTRY IBCDC(H,E,L,P) 

CIB 

CDC 

C ENTRY IBCDC 

CDC 


The corresponding CDC configuration would be: 


CIB 

C ENTRY IBCDC(H,E,L,P) 

CIB 

CDC 

ENTRY IBCDC 
CDC 


All versions of a given procedure are thus available for inspection by 
all users. The selection of options is made by a computer program at 
distribution time. A listing of machine-dependent sections can also be 
prepared in that process. 

The language flags achieve the major objective of having a single, 
unified source for each program which is maintained for all users. With 
these provisions, the basic FORTRAN programs are operable on IBM, CDC, 
UNIVAC, CRAY, Amdahl, and other computers, except that system-dependent 
service routines as specified by CCCC must be provided. 

Optional packages and procedures which provide enhanced convenience are 
also available. The optional run-time storage allocation requires 
system-dependent routines. Instructions for installing these options 
are distributed with the source programs. All known users at this time 
use all of the optional enhancements available to them. Even so, the 
basic operation with FORTRAN routines plus the CCCC package remains 
available if needed. 


4.9.2 Service Subroutines 

Certain standard service subroutines are specified by the CCCC for use 
in reactor physics codes. The service routines used in these codes 
include: 
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TIMER 

REED 

RITE 

DRED 

DRIT 

DOPC 


3 - 

3 - 


Provides timing and job identification data 
Provide sequential access to data files 

Provide random access to data files 

Provides initiating, closing, and certain repositioning 
of data files 


CRED 

CRIT 


3 - 


Provide block transfer of data between fast and slow 
memory. 


Many of these subroutines also call other subroutines. Many are 
entirely system dependent. Each configuration to be distributed 
contains an appropriate set of service subroutines, insofar as possible. 
The realities of computing environments may require local modification 
or substitution. The specifications given in Reference 16, together 
with extensive in-stream comments, provide guides for such modification. 
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4.11 SAMPLE PROBLEM 


The sample problem demonstrates the calculation of the air-over-ground 
environment for the two-meter box experiments. 18 ' 19 Figure 4-2 shows a 
simple diagram of the geometry modeled in the DORT input. (It should be 
noted again that the DORT and GRTUNCL geometry models are equivalent for 
the analysis performed in MASH.) A complete listing of the input cards 
for the sample problem is given in Figure 4-3, and some selected output 
is shown in Figure 4-4. 

The DORT input stream shown in Figure 4-3 includes a tremendous amount 
of control parameters in the first data block (62$, 62$, and 63* 
arrays). The user will note that most of these parameters are system or 
code defaults. Consequently, only those parameters of particular 
importance to the sample problem will be emphasized. The 61$ array 
parameters indicate the input and output files utilized in this 
calculation. It should be noted that this particular DORT case utilized 
an input fluence guess (NTFLX). This was because this calculation was 
restarted from a previous one. If no input fluence guess is used, this 
unit would be zero. The scalar fluences were written on unit 21 
(NTFOG), the cross sections (from GIP) were input on unit 4 (NTSIG), the 
directional fluences were written on unit 22 (NTDIR), and the 
distributed source was read in from unit 23 (NTDSI). The distributed 
source represents the output file from the GRTUNCL sample problem 
discussed in Section 3.0, and the cross sections are from the GIP sample 
problem discussed in Section 2.0. The user should compare the 
parameters used in these two problems with the ones used in the DORT 
case to see how the different programs interact. 

In viewing Figure 4-3, the input illustrates; 8 material zones (IZM), 66 
radial intervals (IM), 84 axial intervals (JM), 69 energy groups (IGM), 
a cross-section table length (IHM) of 72, no upscatter (IHT=3, and 
IHS=4), and a mixing table length (MS) of 0. 54 materials (9 different 

mixtures, each with a P 0 through P 5 component) were read in from a GIP 
tape (MTMP=54). The total number of materials (MT) was 54, and no print 
was requested for the printed output (ICSPRT-1). The problem included; 
240 directions in the quadrature set (MM=240), RZ geometry (INGE0M=1), 
group dependent fluence iteration (IFXMI=-4), theta weighted fluence 
extrapolation model (M0DE*4), directional fluences saved (IDIRF=2), and 
20 key fluences printed at the group convergence (NKEYFX=-20). The 
group dependent fluence iteration scheme is given in the 24$ array. The 
axial and radial intervals for the key fluences are given in the 29$ and 
30$ arrays. The first directional fluence axial interval saved was 13 
(JDIRF), and the last interval saved was 25 (JDIRL). The user should 
note these two parameters match parameters used in the VISTA sample 
problem given in the Section 5.0. A zone dependent convergence 
criterion was chosen (IEPSBZ=11) and the convergence parameters for each 
material zone are in the 24* array. This parameter is useful when 
performing a large air-over-ground problem, and the user does not want 
to converge the entire mesh to a fine convergence criteria when only a 
portion of the mesh is really important. In the sample problem, there 
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was a tight convergence criteria used at the locations of importance in 

the mesh, a less strict criteria used around these areas, and then a 

minimal criteria used for the areas of lee importance, the zone numbers 
by interval are entered in the 8$ array, and the material by zone is 
entered in the 9$ array. These arrays along with the axial intervals 
(2* array) and radial intervals (4* array) match the same arrays in the 
GRTUNCL sample problem, with the exception that GRTUNCL requires a 
negative entry in the 9$ array for to indicate the higher order of cross 
section scattering. 

A full description of the DORT printed output is given in Section 4.8.3 
above. The user should consult this section for viewing the sample 
problem output. The selected DORT output shown in Figure 4-4 first 
illustrates the input parameters read in the first data block, followed 

by the initial memory requirements to run this particular DORT case. 

The output then produces the directional remesh arrays, followed by 
indicators that the second, third, and fourth data blocks have been 
successfully read. A listing of some of the parameters in the third 
data block (10$, 11$, 12*, 9$, 24*, etc.) are next in tabular form. 

This table is followed by the quadrature information and Legendre 
coefficients for scattering integrals. This information is followed by 
the fine mesh sets, the zone number and material number by interval 
maps. This table is followed by a listing of storage information useful 
to the programmer. Next, the source iteration information followed by 
the key fluence array is printed for each group. This is an important 
table in that the problem convergence is illustrated here. Finally, the 
system balance tables, depending on the option chosen, (IRED) are 
printed. In this sample problem, a balance table was chosen for each 
zone in the problem along with a system table. The last line printed on 
the sample problem output is a summary of clock and CPU time used. 
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' dort - aprf aog using saic 1989 angle-energy leakage source, nun = 240 
' 16.143m source height, simple topography out to 400m test site 
' 34% ground moisture, 10/24/89(a) air parameters 


61$$ 20 21 4 0 23 / ntflx,ntfog,ntsig,ntbsi,ntdsi 

0 0 0 0 22 / ntfci,ntibi,ntibo,ntnpr,ntdir 

0 e / ntdso 


62$$ 0 5 8 66 84 
69 3 4 72 0 
0 54 54 0 240 


/ iadj,isctm,izm,im,jm 
/ igm,iht,ihs,ihm,mixl 
/ mcr,mtp,mtm,idfac,mm 


11000 / ingeom.ibl,ibr,ibb,ibt 

1-4040 / isrmx,ifxmi,ifxmf,mode,ktype 

20000 / iacc,kalf,igtype,inpfxm,inpsrm 

00000 / njntsr,nintsr,njntfx,nintfx,iact 

80112 / ired,ipdb2,ifxprt,icsprt,idirf 

13 25 120 11 1 / jdirf,jdirl,nbuf,iepsbz,minblk 

11111 / maxblk,isbt,msbt,msdm,ibfscl 

4 50 2 0 0 / intscl,itmscl,nofis,ifdb2z,iswp 

19 28 0 0 0 / keyjn,keyin,nsigtp,norpos,normat 

0 0 250 250 -20 / mstmax,negfix,locobj,lcmobj,nkeyfx 

4 46 0 0 0 / ncndin,neut,itally,ispl,isp2 


63** 120 0.0 1-4 1-2 0.0 / tmax,xnf,eps,epp,epv 

1-3 1.0 0.2 1.5 10.0 /epf,ekobj,evth,evchm,evmax 
1.0 1.0 -1.0 0.3 10.0 /evkmx,evi,devdki,evdelk,sormin 
1.0 1-4 1-2 0.3 -1.5 /conacc,conscl,coneps,wsoloi,wsolii 
1.5 0.6 0.0 1-60 0.0 /wsolcn,orf,fsnacc,flxmin,smooth 
1-2 0.2 0.9 / epo,extrcv,theta 

e t 
t 


81** / wts mm240 

0 2rl02900-8 0 2r307825-8 0 2r510200-8 0 2r708425-8 0 
2r901350-8 0 563869-8 316131-8 n2 0 641385-8 359590-8 n2 0 
714976-8 400849-8 n2 0 784547-8 439853-8 n2 0 857529-8 

480771-8 n2 0 642875-8 293289-8 479164-8 n3 0 681415-8 

310872-8 507890-8 n3 0 716550-8 326901-8 534077-8 n3 0 

745915-8 340298-8 555965-8 n3 0 775565-8 353825-8 578064-8 

n3 0 489468-8 386282-8 513536-8 364389-8 n4 0 500102-8 
394674-8 524693-8 372306-8 n4 0 508580-8 401365-8 533587-8 
378617-8 n4 0 515474-8 406806-8 540820-8 383750-8 n4 0 
517107-8 408094-8 542534-8 384965-8 n4 ql20 


Figure 4-3. Sample DORT Input for the 
Two-Meter Box Air-Over-Ground Analysis. 
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82** / mus iran240 

-641230-7 -421582-7 ml -142963-6 -939923-7 ml -229252-6 

-150724-6 ml -315291-6 -207291-6 ml -399349-6 -262555-6 ml 

-472796-6 -411087-6 -143488-6 m2 -537046-6 -466952-6 
-162988-6 m2 -598374-6 -520275-6 -181600-6 m2 -656401-6 

-570729-6 -199211-6 m2 -711034-6 -618231-6 -215791-6 m2 

-761567-6 -713133-6 -470428-6 -164201-6 m3 -807567-6 
-756207-6 -498843-6 -174119-6 m3 -849108-6 -795106-6 
-524503-6 -183075-6 m3 -885925-6 -829582-6 -547246-6 
-191013-6 m3 -917890-6 -859514-6 -566991-6 -197905-6 m3 
-944812-6 -922954-6 -765692-6 -505099-6 -176303-6 m4 
-966490-6 -944130-6 -783260-6 -516688-6 -180348-6 m4 
-982847-6 -960108-6 -796516-6 -525433-6 -183400-6 m4 
-993815-6 -970823-6 -805405-6 -531297-6 -185447-6 m4 
-999313-6 -976194-6 -809860-6 -534236-6 -186473-6 m4 ql20 

83** / etas mm240 

3r-.997942 3r-.989728 3r-.973367 3r-.948995 3r-.916799 
Sr -.881172 Sr -.843553 5r-.801217 Sr -.754412 Sr -.703158 
7r-.648086 7r-.589776 7r-.528222 7r-.463828 7r-.396835 
9r-.327613 9r-.256704 9r-.184425 9r -.111045 9r-.037054 gl20 

84$$ 12345678 / reg nos by zone 

t 

1** fO / fission spectrum 
2** /axii (jm+1) 

-80 -75 -70 -65 -60 -55 -50 -45 -40 -35 -30 -25 -20 -15 -10 -5 -2.5 

-1 0 50 150 250 489 749 949 1102 1220 1311 1381 1435 1476 1508 1532 

1551 1566 1577 1585 1592 1597 1601 1604 1607 1608.5 1610 1614.3 1619 
1620.5 1622 1624 1627 1631 1636 1643 1651 1662 1677 1696 1720 1752 
1793 1847 1917 2008 2126 2279 2479 2739 3076 3514 4085 4826 5789 7042 
8670 10787 13000 16000 19000 22000 25000 28000 31000 34000 37000 40000 

4** /radii (im+1) 

0 4.6 6 7.8 10 13 17 22 29 37 48 63 82 106 138 179 233 303 394 512 665 
865 1125 1462 1900 2471 3212 4175 5428 7056 9000 11000 13000 15000 
16500 17500 19000 21000 23000 25000 27000 28500 29500 30500 31500 

33000 35000 37000 38500 39500 40500 41500 43000 45000 47000 49000 

51000 54000 57000 60000 63000 66000 69000 72000 75000 78000 80000 

5** fl / energy group boundaries 


Figure 4-3. (continued) 
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8$$ / zone numbers by interval 

' zones 1, 2, & 3-aprf ground, 4 & 5-borated concrete, 6, 7, & 8-air 
66rl 8q66 /j-ints 1-9 
19r5 47rl 2q66 /j-ints 10-12 

19r4 3r3 8rl 3r3 3r2 5r3 3r2 4r3 3r2 3 14rl 5q66 /j-ints 13-18 

33r7 3r6 5r7 3r6 4r7 3r6 7 14r8 3q66 /j-ints 19-22 

52r7 14r8 3q66 /j-ints 23-26 
66r8 71q66 /j-ints 27-98 

9$$ 3rl 2r7 3rl3 / mat by zone 

24** 1.-10 1.0 l.-l 1.-2 1.-10 1.0 l.-l 1.-10 / importance by zone 

28$$ 35r8 1lr25 23r8 / inners by grp 

29$$ 13rl9 3r20 3r21 22 / key fix j-pos's 

30$$ 31 34 35 36 39 42 43 44 49 50 51 

53 56 35 43 50 lq3 50 / key fix i-pos's 

t 


Figure 4-3. (continued) 
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igure 4-4. (continued) 

















































Figure 4-4. (continued) 
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Figure 4-4. (continued) 
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Figure 4-4. (continued) 


















Figure 4-4. (continued) 
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Figure 4-4. (continued) 
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Figure 4-4. (continued) 




















































































































Figure 4-4. (continued) 
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Figure 4-4. (continued) 
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Figure 4-4. (continued) 
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Figure 4-4. (continued) 



































































































































































































































































































































































































































































































































































5.0 VISTA: A VEHICLE INPUT SOURCE TRANSFORMATION AND ASSEMBLY CODE 


5.1 INTRODUCTION TO VISTA 


5.1.1 Background 

The Vehicle Input Source Jransformation and Assembly (VISTA) code 
processes directional fluences from a two-dimensional directional 
fluence file produced by DORT 1 . These fluences in the DORT fluence file 
are modified and reformatted for use in the forward-adjoint folding 
process of the DRC module in MASH or for use in DOTTOR* to produce a 
boundary source for TORT 3 . 

VISTA was developed by W. A. Rhoades to replace the VISA module of the 
Vehicle Code System (VCS) 4 * 5 as the code for processing the scalar and 
angular fluences from DORT and the uncollided fluence file from 6RTUNCL. 
An additional incentive for the development of VISTA was to have a code 
capable of processing the DORT directional flux files for eventual use 
in the TORT code. VISTA represents an improvement to VISA through 
increased generalization, and the addition of several new output 
options. In particular, VISTA can produce a file formatted for use in 
the DRC module of MASH, or a file formatted for use in DOTTOR (a code 
which transforms 2-D fluence information into a 3-D boundary source at 
or near the coupling surface for use in TORT). Furthermore, VISTA can 
copy old MASH or DOTTOR formatted files to new files, convert MASH 
formatted output files to DOTTOR formatted output files, and combine two 
MASH or DOTTOR formatted files into new DRC or DOTTOR formatted files. 

The basic approach in VISTA is similar to that of an unpublished code 
from the 1960's named LIMBO. The exact authors of LIMBO are unknown, 
but they may have included R. D. Rodgers, F. R. Mynatt, and/or M. L. 
Gritzner. Credit for the preservation and availability of LIMBO belongs 
to J. V. Pace, III. 


5.1.2 Method Used 

Because of the large volume of data, it is not practical to produce 
properly-normalized directional fluence files from DORT. Further, when 
the GRTUNCL code is used to produce a first-collision source for DORT, 
the uncoilided fluence, i.e., the fluence resulting from the particle 
flight before the first collision, is not included in the DORT output. 


‘VISTA is an updated and undocumented version of the VISA program found 
in the following reference: W. A. Rhoades, M. B. Emmett, G. W. 
Morrison, J. V. Pace, III, and L. M. Petrie, "Vehicle Code System 
(VCS) User's Manual," ORNL-TM-4648, Oak Ridge National Laboratory, 
(August 1974). 
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VISTA repairs the normalization problem by calculating the scalar 
fluence for each mesh cell, comparing this with the scalar fluence file 
produced by DORT, and normalizing the directional fluence such that it 
corresponds exactly to the DORT result. Then, the uncollided fluence 
from GRTUNCL is added to the directional fluence in the direction 
applicable at each mesh cell. The processing can be restricted to a 
subset of the space mesh, reducing the volume of the output file. 

As the new data are calculated, they are dumped to a random-access 
scratch file. Then, the data are retrieved in the order required by the 
requested output format and transferred to the output file. On some 
computer systems, reading and writing in the sorting step can proceed 
concurrently. For convenience, limited ability to transform between 
formats is included. Certain input and output files can be either 
formatted or unformatted as a convenience in using data shipped between 
computers through a network. 


5.2 VISTA INPUT REQUIREMENTS 

The following input cards are required to execute VISTA. Default values 
are in brackets ([]). 


Title Card (72 alphanumeric character description) 

INPUT DATA BLOCK 1 

1$ Array - Integer Control Parameters 


NIP number of radial intervals output 

JPL first axial interval output 

JPU last axial interval output 

NED print edit control parameter 

- 0 implies no effect 

> 0 implies print NED source groups 
NORM scalar fluence normalization control flag 

0/1 = normalize/do not normalize to scalar fluence 

5 --- 

ISGRP number of groups on uncollided fluence file 

- 0 implies use collided fluence only 

< 0 implies use uncollided fluence only 
NFLSV logical unit number of scalar fluence input, [1] 

NAFT logical unit number of angular fluence input, [2] 

NUNCL logical unit number of uncollided fluence input, [3] 

NDATA logical unit number of source output, (4] 
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- 10 - 


N5 logical unit number for card input, [5] 

N6 logical unit number for printed output, [6] 

NJ1 first axial interval input control flag 
- 0 implies set NJ1 * 1 

> 0 implies first axial interval input 
NJM last axial interval input control flag 

« 0 implies set NJM « JM 

> 0 implies last axial interval input 
NAFTI NAFT missing groups control flag 

< 0 implies first NAFTI groups - 1.0, all others * 0.0 
= 0 implies no effect 

> 0 implies number of groups missing at beginning of NAFT 

15 — 


NTYPE fluence file output option control flag 

= 0 implies process DORT files on NFLSV, NAFT, NUNCL 
into MASH output on NDATA 

■= 1 implies process DORT files on NFLSV, NAFT, NUNCL 

into DOTTOR output on NDATA 

- 10 implies copy MASH output file on NFLSV to a new 

MASH output file on NDATA 

*= 11 implies copy DOTTOR output file on NFLSV to a new 
DOTTOR output file on NDATA 

- 21 implies convert MASH output file on NFLSV to a 

DOTTOR output file on NDATA 

- 30 implies combine MASH output files on NUNCL and 

NFLSV to a new MASH output file on NDATA 
* 31 implies combine DOTTOR output files on NUNCL and 
NFLSV to a new DOTTOR output file on NDATA 
NEUI last neutron group control flag 

(required if NGAMX > 0 and NTYPE * 0 or 1) 

< 0 implies gamma output only 

> 0 implies last neutron group on input fluence files 
NGAMX initial missing gamma group control flag 


- 0 implies no effect 
> 0 implies NGAMX initial gamma 
groups missing on all input 
files (NFLSV, NAFT, and NUNCL) 


k NTYPE-0 or 1 


* 0 implies no effect 
> 0 implies NGAMX initial gamma 

groups missing on input file NUNCL 


\— NTYPE=30 or 31 


E (terminate array with M E n ) 

T (terminate block with "T") [T always required] 
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INPUT DATA BLOCK 2 [omit data block if NTYPE > 10] 


2* Array 

SH height of point source 

HSA cosine of angle with z axis into which source is emitted 

XNEUT NFLSV fluence file multiplier (if NTYPE - 30 or 31) [1.0] 

XGAM NUNCL fluence file multiplier (if NTYPE = 30 or 31) [1.0] 

E (terminate array with "E") 

4$ Array 

IVAL values of radial intervals to be output (NIP entries) 

T (terminate block with "T") [T always required] 


5.3 VISTA INPUT DATA NOTES 

Except for the title card, all data are read using the FIDO input 
system. A detailed description of the FIDO input system is given in 
Appendix A. Data arrays are entered in blocks, each terminated by a 
"T". Unused data arrays (e.g., 2* and 4$ if NTYPE>«10) are not entered, 
but a "T" must still be entered to signal the termination of each block. 

NIP The number of radial intervals output should encompass the TORT 
geometry for a D0TT0R formatted source file. At present, the DRC module 
in MASH only uses one radial interval for the source. Therefore, the 
value for NIP is usually set to one, although it is not required to be 
just one. It should be noted that a new version of DRC is in the 
testing stage that will allow interpolation in the DORT radial mesh and 
then NIP will have the same meaning for MASH as it does for D0TT0R. 

NFLSV, NAFT, and NUNCL Logical unit numbers for these input fluence 
files specified less than zero (i.e., negative entries) imply FORMATTED 
or BCD files instead of binary files. 

JPL and JPU The output axial intervals must be equal to, or a subset 
of, the input axial intervals (NJ1 and NJM) from the DORT file. These 
intervals should also encompass the TORT or MASH geometry in the Z 
direction. 

NED This parameter controls the print of the output source file by 
group. Care should be taken in using this control flag because it could 
produce large amounts of output. 


5-4 









NJ1 and NJN These parameters must correspond to the parameters JDIRF 
and JDIRL in the 62$ array of DORT. These parameters in DORT give the 
axial intervals that are written out on the directional fluence file. 
Consequently, the same NJ1 and NJM values must be read as input into 
VISTA. 

NAFTI This parameter is primarily used to tell the number of initial 
groups on NAFT which had a zero source. For instance, if the initial 
source distribution used in GRTUNCL and DORT did not have any values in 
the first eight groups, then NAFTI would equal eight (assuming no 
upscatter). 

NEUI This parameter is used to output a gamma only file from a coupled 
neutron-gamma file if input negative. 

NOTE: If you execute a coupled neutron-gamma DORT problem 

with all neutron source groups zero and with or without 
gamma source groups zero, you must output a full 
neutron-gamma coupled source file. You cannot output a 
gamma only source file. 

NGANX This parameter is only used to indicate missing (or deleted) 
gamma groups from the input fluence files. 

SH The source height entered here must correspond to the source height 
used in GRTUNCL and/or DORT. 

IVAL This parameter should correspond to the NIP interval(s) of the 
DORT mesh required to encompass the TORT geometry, or the radial 
distance for the source for MASH required by the DRC module. 


5.4 VISTA INPUT FLUENCE FILE FORMAT 

As stated earlier, VISTA's primary function *s to process, modify, and 
reformat directional fluence files from the DORT code into a suitable 
format for use in either MASH or DOTTOR. Also, VISTA can perform a 
number of utility functions (i.e., copy, convert, and combine) on 
previously processed VISTA files. Consequently, VISTA will read several 
different types of input file formats depending on the value of NTYPE. 
For this section, only the primary function of VISTA will be addressed. 
The MASH formatted source file will be addressed in the next section, 
and the interested reader should consult the DOTTOR manual (Ref. 2) for 
information on the DOTTOR formatted source file. 

To accomplish its primary function, VISTA reads a DOT IV formatted file 
- referred to as the VARSOR format in this document. Both the 
uncollided fluence on unit NUNCL and the scalar and directional fluence 
files on NFLSV and NAFT, respectively, are written in this format. The 
VARSOR format is defined in the following manner: 
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C -VSOROOIO 

C VSOR0020 

Q***************************************************************y£Q R QQ3Q 

C REVISED 10 NOV 76 -VSOR0040 

C -VSOR0050 

CF VARSOR -VSOR0060 

CE VARIABLE MESH SOURCE MOMENT DATA -VSOR0070 

C -VSOR0080 

£***************************************************************y$OR0090 
C VSOROIOO 

CD ORDER OF GROUPS IS BY DECREASING ENERGY VSOROllO 

CD I IS THE FIRST-DIMENSION INDEX VS0R0120 

CD J IS THE SECOND-DIMENSION INDEX VSOR0130 

CD JM=1 FOR 1-DIMENSIONAL GEOMETRY VSOR0140 

CD IF ISOP.GT.O, SOURCE IS FIRST-COLLISION TYPE VS0R0150 

C VSOR0160 

C.VSOR0170 

CS FILE STRUCTURE -VSOR0180 

CS -VSOR0190 

CS RECORD TYPE PRESENT IF -VSOR0200 

CS .VS0R0210 

CS FILE IDENTIFICATION ALWAYS -VSOR0220 

CS FILE LABEL ALWAYS -VSOR0230 

CS FILE CONTROL ALWAYS -VS0R0240 

CS FILE INTEGER PARAMETERS ALWAYS -VSOR0250 

CS -VSOR0260 

CS ************** {REPEAT 0VER ALL GROUPS) -VSOR0270 

CS * SOURCE MOMENTS ALWAYS -VSOR0280 

cs **************** -VSOR0290 

C -VS0R0300 

cs **************( REPEAT OVER ALL GROUPS) -VSOR0310 

CS * SCALAR UNCOLLIDED FLUX ISOP.GT.O -VS0R0320 

cs **************** -VSOR0330 

C -VS0R0340 

C.VSOR0350 

C VSOR0360 

C VSOR0370 

C.VSOR0380 

CR FILE IDENTIFICATION -VSORO390 

C -VS0R0400 

CL HNAME,(HUSE(I),1*1,2),IVERS -VS0R0410 

C -VSOR0420 

CW 1+3*MULT«NUMBER OF WORDS -VSOR0430 

C -VSOR0440 

CD HNAME HOLLERITH FILE NAME - VARSOR - (A6) -VSOR0450 

CD HUSE(I) HOLLERITH USER IDENTIFICATION - (A6) -VS0R0460 

CD IVERS FILE VERSION NUMBER -VSOR0470 

CD MULT DOUBLE PRECISION PARAMETER -VSOR0480 

CD 1- A6 WORD IS SINGLE WORD -VSOR0490 

CD 2- A6 WORD IS DOUBLE PRECISION WORD -VS0R0500 

C -VSOR0510 

C.VSOR0520 
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C VS0R0530 

C VSOR0540 

C.VSOR5550 

C -VSOR0560 

CR FILE LABEL -VS0R0570 

C -VS0R0580 

CL DATE,USER,CHARGE,CASE,TIME,(TITL(I).I-l,12) -VS0R0590 

C -VS0R0600 

CW 17*MULT=NUMBER OF WORDS -VSOR0610 

C -VS0R0620 

CD DATE AS PROVIDED BY TIMER OPTION 4 - (A6) -VSOR0630 

CD USER AS PROVIDED BY TIMER OPTION 5 - (A6) -VSOR0640 

CD CHARGE AS PROVIDED BY TIMER OPTION 6 - (A6) -VSOR0650 

CD CASE AS PROVIDED BY TIMER OPTION 7 - (A6) -VS0R0660 

CD TIME AS PROVIDED BY TIMER OPTION 8 - (A6) -VS0R0670 

CD TITL(I) TITLE PROVIDED BY USER - (A6) -VSOR0680 

C -VSOR0690 

C.VS0R0700 

C VS0R0710 

C VSOR0720 

C.-.-.-.VSOR0730 

CR FILE CONTROL VS0R0740 

C -VSOR0750 

CD IGM,NEUT,JM,LM,IMA,MMA,ISM,IMSISM,ISOP,(IDUM(N),N=1,16) -VSOR0760 

C -VSOR0770 

CW 25=NUMBER OF WORDS -VSOR0780 

C -VSOR0790 

CD IGM NUMBER OF ENERGY GROUPS -VS0R0800 

CD NEUT LAST NEUTRON GROUP -VS0R0810 

CD (IGM IF ALL NEUTRONS, 0 IF ALL GAMMA) -VS0R0820 

CD JM NUMBER OF SECOND-DIMENSION (J) INTERVALS -VSOR0830 

CD LM MAXIMUM LENGTH OF MOMENT EXPANSION -VS0R0840 

CD IMA MAXIMUM NUMBER OF FIRST-DIMENSION INTERVALS -VSOR0850 

CD MMA NUMBER OF BOUNDARY DIRECTIONS -VSOR0860 

CD ISM NUMBER OF I-BOUNDARY SETS -VSOR0870 

CD IMSISM TOTAL NUMBER OF I-INTERVALS, ALL I-SETS -VSOR0880 

CD ISOP UNCOLLIDED FLUX FLAG -VSOR0890 

CD 0 - NO UNCOLLIDED FLUX RECORDS PRESENT -VSOR0900 

CD 1 - UNCOLLIDED FLUX RECORDS PRESENT -VS0R0910 

CD IDUM(I) ARRAY SET TO 0 -VSOR0920 

C -VSOR0930 

C.VSOR0940 

C VSOR0950 

C VSOR0960 

C.VSOR0970 

CR FILE INTEGER PARAMETERS -VSOR0980 

C -VSOR0990 

CL (LMBIG(IG),IG*1,IGM), -VSORIOOO 

CL *(IMBIS(IS),IS*1,ISM),(ISET(J),J=1,JM) -VSORIOIO 

C -VSOR1020 

CW IGM+ISM+JM-NUMBER OF WORDS -VSOR103O 

C -VSOR1040 
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CD LMBIG(IG) LENGTH OF MOMENT EXPANSION FOR GROUP IG -VSOR1050 

CD IMBIS(IS) NUMBER OF INTERVALS IN ISET IS -VS0R1060 

CD ISET(J) I-SET ASSIGNED TO INTERVAL J -VSOR1070 

C -VS0R1080 

C.VS0R1090 

C VSORllOO 

C VSORlllO 

C.VS0R1120 

CR SOURCE MOMENTS VS0R1130 

C -VS0R1140 

CL ((SORM(I,L),1=1,IMS),L=1,LMS) -VSOR1150 

C -VSOR1160 

CW IMS*LMS=NUMBER OF WORDS -VSOR1170 

C -VSOR1180 

C DO 1 J=1,JM -VSORI190 

C 1 READ(N) *L1ST AS ABOVE* -VS0R1200 

C -VSOR1210 

CD SORM SOURCE BY INTERVAL AND MOMENT INDEX -VSOR1220 

CD IMS IMBIS(IS) FOR IS CORRESPONDING TO J -VSOR1230 

CD LMS LMBIG(IG) -VS0R1240 

C -VS0R1250 

C. VS0R1260 

C VSOR1270 

C VSOR1280 

C.....----..VSOR1290 

CR SCALAR UNCOLLIDED FLUX -VSOR1300 

C -VS0R1310 

CL (FLUM(1),1=1,IMS) -VSOR1320 

C -VS0R1330 

CW IMS=NUMBER OF WORDS -VS0R1340 

C -VSOR1350 

C DO 1 J=1,JM -VSOR1360 

C 1 READ(N) *LIST AS ABOVE* -VSOR1370 

C -VS0R1380 

CD FLUX UNCOLLIDED FLUX BY INTERVAL -VSOR1390 

C -VSOR1400 

C.VS0R1410 

C VSOR1420 

C VSOR1430 

C VSOR1440 

C VSOR1450 

C END VSOR1460 


5.5 VISTA OUTPUT FILES 

The VISTA code produces two types of output file - a DOTTOR formatted 
source file and a MASH formatted source file. The DOTTOR formatted 
source file will not be addressed in this manual, and the interested 
reader should consult Reference 2. The MASH formatted source file is as 
follows: 
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Record 

1: 

TITLE, 

TDOT - 144 Alphanumeric Characters 

Record 

2: 

MM 

Number of quadrature directions 



IM 

Number of radial intervals 



JM 

Number of axial intervals 



IGM 

Number of energy groups 



IGP 

Number of energy groups plus 1 



MMDN 

Number of directions downward 



NJP 

Number of axial fluences 



ISH 

Height of source point 



ISHA 

Cosine of source angle (with Z-axis) 



NIP 

Number of radial fluences 



JPL 

Index of first J interval on file 



JPU 

Index of last J interval on file 



11 additional VISTA input values not used in MASH 

Record 

3: 

IVAL 

Array of radial interval numbers being output 

Record 

4: 

WT 

[MM values per array; 3*MM total values] 

Weights from DORT quadrature 

Mu's from DORT quadrature 



AMU 



ETA 

Eta's from DORT quadrature 

Record 

5: 


[NIP + NJP values] 



R 

Midpoints of radial bins 



Z 

Midpoints of axial bins 

Record 

6 to END: 

[NANG*NJFLX values per record] 




[IGM records per radius, and NIFLX radii] 



FLUX 

Directional fluences 


It should be noted that much of the information on the DOTTOR formatted 
source file is similar to the information given above in the MASH 
formatted source file. 


5.6 LOGICAL UNIT REQUIREMENTS 

Below is a listing of the files required to execute a VISTA case along 
with the default values used in the code. In setting up a VISTA case, 
efforts must be made for these units to be available. 
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1 . 

2 . 

3. 

4. 

5. 

6 . 
7. 


Logical Unit NFLSV - DORT Scalar fluence input file 
Logical Unit NAFT - DORT directional fluence input file 
Logical Unit NUNCL - GRTUNCL uncollided fluence input file 
Logical Unit NDATA - MASH or DOTTOR formatted output source 
file 

Logical Unit 91 - SCRATCH 

Logical Unit 6 - Printed Output 

Logical Unit 5 - Card Input 


Default logical unit assignments for the first four data files are 1, 2, 
3, and 4. 


NOTE: Logical unit numbers for the input fluence files 
(NFLSV, NAFT, NUNCL) specified less than zero 
(i.e., negative entries) imply FORMATTED or BCD 
files instead of binary files. 


5.7 PROGRAMMER INFORMATION 


5.7.1 Inter-machine Adaptability 

The VISTA code is intended to be easily adaptable to any type of 
sophisticated computer, and yet to take advantage of certain localized 
structural features which may be machine-dependent. 

In general, the guidelines of ANS-STD.3-1971 7 are followed. This 
requires general adherence to a simple, standard FORTRAN language except 
where deviations provide important improvements in capability and can be 
documented. In addition, machine-dependent features have been kept 
localized and have not been included in the subroutines which perform 
actual computation. 

The recommended procedures of the Committee on Computer Code 
Coordination (CCCC) 6,8 have been followed where practical. Compliance 
with these standards has been incomplete where cost was prohibitive, the 
nature of the codes did not allow it, or the expected level of 
performance could not be obtained in that fashion. 

Where minor or certain machine-dependent features are required, 
alternative features are enclosed in pairs of 3-character "language 
flags." The alternative statements remain in the source program, with 
inappropriate sections transformed into comment statements. If the code 
is set up for IBM operation, for example, it might contain: 

CIB 

ENTRY IBCDC(H,E,L,P) 

CIB 
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CDC 

C ENTRY IBCDC 

CDC 


The corresponding CDC configuration would be: 


CIB 



C 

CIB 

CDC 

ENTRY 

IBCDC(H,E,L,P) 

CDC 

ENTRY 

IBCDC 


All versions of a given procedure are thus available for inspection by 
all users. The selection of options is made by a computer program at 
distribution time. A listing of machine-dependent sections can also be 
prepared in that process. 

The language flags achieve the major objective of having a single, 
unified source for each program which is maintained for all users. With 
these provisions, the basic FORTRAN programs are operable on IBM, CDC, 
UNIVAC, CRAY, Amdahl, and other computers, except that system-dependent 
service routines as specified by CCCC must be provided. 

Optional packages and procedures which provide enhanced convenience are 
also available. The optional run-time storage allocation requires 
system-dependent routines. Instructions for installing these options 
are distributed with the source programs. All known users at this time 
use all of the optional enhancements available to them. Even so, the 
basic operation with FORTRAN routines plus the CCCC package remains 
available if needed. 


5.7.2 Service Subroutines 

Certain standard service subroutines are specified by the CCCC for use 
in . eactor physics codes. The service routines used in these codes 
include: 


TIMER 

REED 

RITE 

DRED 

DRIT 


3 - 

3 - 


Provides timing and job identification data 
Provide sequential access to data files 

Provide random access to data files 
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DOPC 


Provides initiating, closing, and certain repositioning 
of data files 


CRED 

CRIT 


Ih 


Provide block transfer of data between fast and slow 
memory. 


Many of these subrou ines also call other subroutines Many are 
entirely system dependent. Each configuration to be distributed 
contains an appropriate set of service subroutines, insofar as possible. 
The realities of computing environments may require local modification 
or substitution. The specifications given in Reference 6, together with 
extensive in-stream corranents, provide guides for such modification. 
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Fall-1989 Two-Meter Box Test Bed Experiments Performed at the Army 
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5.9 SAMPLE PROBLEM 

The sample problem demonstrates the processing of the DORT and GRTUNCL 
fluence files from the calculation of the air-over-ground environment 
for the two-meter box experiments at 400 meters. 9 Figure 5-1 depicts a 
simple diagram of which portion of the DORT geometry is being processed 
for output from VISTA. A complete listing of the input cards for the 
sample problem is given in Figure 5-2, and some selected output is shown 
in Figure 5-3. 

In viewing Figure 5-2, the input illustrates; 1 radial interval output 
(NIP), DORT interval 13 as the first axial interval output (JPL), and 
DORT interval 25 as the last axial interval output (JPU). No source 
groups were printed (NED) and the output fluences were to be normalized 
to the scalar fluence (NORM). There were 69 energy groups (IGM), DORT 
interval 13 was the first axial interval input (NJ1), and DORT axial 
interval 25 was the last axial interval input (NJM). There were no 
groups missing in the input directional fluence file (NAFTI), 46 neutron 
energy groups (NEUI), and no initial gamma groups missing (NGAMX). A 
MASH formatted output source file was requested (NTYPE=0). All comments 
after the slash (/) are ignored in FIDO input and are only useful for 
quick identification of the input parameters. Finally, the VISTA sample 
input in Figure 5-2 shows a source height (from GRTUNCL) of 16.143 
meters (SH) and a value of 50 for the DORT radial interval (IVAL). 

The selected VISTA output shown in Figure 5-3 first illustrates the 
input parameters read in the first two data blocks along with some of 
the parameters obtained from the DORT input directional fluence files. 
The memory requirements are also given in this output. This output is 
followed by an "angle number by DORT interval" array which represents 
the particular direction in the DORT quadrature of the uncollided 
component of the fluence. This array is followed by more information 
from the DORT directional fluence file, i.e., quadrature information, 
radial position of the interval IVAL (400 meters), and the axial 
positions corresponding to the axial intervals input (NJ1 and NJM) and 
output (JPL and JPU). Finally, the output illustrates the progress of 
the source output reformatting (and normalization if selected) by group. 
The source is written to the SCRATCH unit (91) and after completion 
written to the output unit NDATA. If source group edits (NED>0) had 
been requested, they would appear at this point. One check for proper 
execution of VISTA is by examining the scaling adjustment factors 
printed by group. These factors should be on the order of 10' 2 or less 
if correct information (input) has been given and there is a reasonable 
degree of convergence in the DORT directional fluence files. 
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aprf aog/400m/simple topo/16.14m sh/34% ground moisture/10-24-89(a) air 

1$$ 1 13 25 0 0 /nip,jpl,jpu,ned,norm 

69 21 22 23 24 /isgrp,nflsv,naft,nuncl,ndata 
5 6 13 25 0 /n5,n6,njl,njm,naftm 
0 46 0 /ntype,neui,ngamx 
e t 

2** 1614.3 0 e /sh,hsa 

4$$ 50 e /ival 
t 


Figure 5-2. Sample VISTA Input for the 
Two-Meter Box Air-Over-Ground Analysis. 
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Figure 5-3. (continued) 
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Figure 5-3. (continued) 





























Figure 5-3. (continued) 


















































































5-21 


Figure 5-3. (continued) 
























































Figure 5-3. (continued) 































































6.0 NORSE: A NULTIGROUP OAK RIDGE STOCHASTIC EXPERIMENT CODE 


6.1 INTRODUCTION TO MORSE 

The Multigroup Oak Ridge Stochastic Experiment code (MORSE) 1 is a 
multipurpose neutron and gamma-ray transport Monte Carlo code. Some of 
its features include the ability to treat the transport of either 
neutrons or gamma rays or a coupled neutron and secondary gamma-ray 
problem. The MORSE code also incorporates multigroup cross sections, an 
option of solving either the forward or adjoint problem, and modular 
input-output, cross section, analysis, and geometry modules. MORSE 
contains time dependence for both shielding and criticality problems, an 
albedo option at any material boundary, a three-dimensional 
combinatorial geometry package, and several types of optional importance 
sampling. Finally, MORSE includes a set of debugging routines 
accessible from anywhere in the program. 

Traditionally, Monte Carlo codes for solving neutron and gamma-ray 
transport problems have been separate codes. This has been due to the 
physics of the interaction processes and the corresponding cross-section 
information required. However, when multigroup cross sections are 
employed, the energy group to energy group transfers contain the cross 
sections for all processes. Also, for anisotropic scattering each 
group-to-group transfer has an associated angular distribution which is 
a weighted average over the various cross sections involved in the 
energy transfer process. Thus, these multigroup cross sections have the 
same format for both neutrons and gamma rays. In addition, the 
generation of secondary gamma rays may be considered as just another 
group-to-group transfer. Therefore, using multigroup cross sections, 
the logic of the random walk process (the process of being transported 
from one collision to another) is identical for both neutrons and gamma 
rays. 

The use of multigroup cross sections in a Monte Carlo code means that 
the effort required to produce cross-section libraries is reduced. 
Coupled neutron gamma-ray cross-section libraries are available from the 
Radiation Shielding Information Center at Oak Ridge National Laboratory. 

Cross sections may be read in either the DTF-IV 2 format or ANISN 3 and 
DOT 4 ' 6 format. The ANISN/DOT formatted cross-section file may be in 
either fixed or free form. The auxiliary information giving the number 
of groups, elements, Legendre coefficients, etc., is used to produce the 
necessary probability tables needed by the random walk module. The 
possible transport cases that can be treated are neutron only, gamma ray 
only, coupled neutron-gamma ray, gamma ray from a coupled set, and 


‘M. B. Emmett, "The MORSE Monte Carlo Radiation Transport Code 
System," ORNL-4972 (1975), ORNL-4972/R1 (1983), ORNL-4972/R2 (1984), 
Oak Ridge National Laboratory. 
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fission, with all of the above options for either a forward or adjoint 
case and for Isotropic or anisotropic scattering up to a P 16 expansion 
of the angular distribution. The option of storing the Legendre 
coefficients for use In a next-event estimator is also provided. 

While the capabilities and versatility of MORSE are well documented for 
applications to a wide variety of problems in both the forward and 
adjoint mode of operation, In the MASH code system, MORSE Is only used 
In adjoint mode for the analysis of the complex target description 
(vehicle) and to create the leakage tape for Input to DRC. 


6.1.1 Theoretical Basis 

Monte Carlo like discrete ordinates solves the Boltzmann transport 
equation to obtain the estimates of the neutron or gamma-ray fluence. 

The general time-dependent integro-differential form of the Boltzmann 
transport equation, the derivation of which can be regarded as a 
bookkeeping process that sets the net storage of particles within a 
differential element of phase space (drdEdfl) equal to the particle gains 
minus the particle losses in (drdEdfl) and leads to the following useful 
form: 


~*(r,E,ft,0 + ft -V$(r,E,ft,t) + E«(r,E) S(r,E,ft,t) 
v ot (6 

= S(r,E, ft, t) + J /dE'dft' E,(r,E' —► E,ft' -+ ft) $(r,E'ft't) 
where 

(r,E,0,t) denotes the general seven-dimsnsional phase space, 
r * position variable, 

E - the particle's kinetic energy, 

v - the particle's speed corresponding to its kinetic energy E, 

fl - a unit vector which describes the particle's direction of 
motion, 

t « time variable, 


$(r,£,ft,t) = 


the time dependent angular fluence, 
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$(r,E,Sl,t)dEdQ, = 


the number of particles that cross a unit area normal to the 
*1 direction per unit time at the space point r and time t with 
energies in dE about E and with directions that lie within the 
differential solid angle dfl about the unit vector fl, 


-^-$(r,E,n,t)dEd(l = 

v at 


net storage (gains minus losses) per unit volume and time at 
the space point r and time t of particles with energies in 
dE about E and with directions which lie in dfl about fl. 


Q- V$(r,£,n = 


net convective loss per unit volume and time at the space 
point r and time t of particles with energies in dE about E 
and directions whicn lie in dfl about 0, 


E«(r,£) = 


the total cross section at the space point r for particles 
of energy E, 


Zt(r,E)*(r,E,Q,t)dEdn = 


collision loss per unit volume and time at the space point r 
and time t of particles with energies in dE about E and 
directions which lie in dfl about 0, 
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E ,(r,E'-+E,W-+fydEdSl = 


the differential scattering cross section which describes the 
probability per unit path that a particle with energy E' and 
an initial direction G' undergoes a scattering collision at 
the space point r which places it into a new direction that 
lies in dG about G with a new energy in dE about E, 


[/ / E,(r. E ' ft)$(r, E , ft, t)dE'dW] dEdtt = 


inscattering gain per unit volume and time at the space 
point r and time t of particles with energies in dE about E 
and directions which lie in dG about G, 


S(r,E,Q,t)dEdn = 


source particles emitted per unit volume and time at the space 
point r and time t of particles with energies in dE about E 
and directions which lie in dG about G. 


An effect of interest such as biological dose, energy deposition, or 
particle fluence (denoted by A) for a given problem can be expressed in 
terms of the fluence field *(r,E,G,t) and an appropriate response 
function P*(r,E,G,t) due to a unit angular fluence and is given by: 


A = f f f J P*(r,E,n,t) $(r,E,n,t)drdEdQdt. (6-2) 


Consistent with the MORSE code, the energy dependence of Equation (6-1) 
is represented in terms of energy groups. A "group" form of Equation 
(6-1) is obtained by integrating each term with respect to the energy 
variable over the energy interval AE g . MORSE solves the integral form 
of the Boltzmann transport equation. Section 4.10 of Reference 1 
details the derivation of many integral forms of the Boltzmann transport 
equation and its adjoint. In this report only a summary of the two 
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particular equations used for the forward and adjoint analysis will be 
given, and the interested user should consult Reference 1 for further 
details. 

The solution of the forward integral transport equation by Monte Carlo 
generally involves a solution for X g (r,Q,t), referred to as the integral 
emergent particle density, i.e., the density of particles with phase 
space coordinates (r,Q,t) leaving collisions. Quantities of interest 
are then obtained by summing the contributions over all collisions, and 
frequently over most of phase space. The "Integral Emergent Particle 
Density Equation" is written (in operator notation) as: 


X*(r,fi,0 = Sg(r,Sl,t) + CV- s (r,ft'-Q) 7>(r' -♦ r,ft') (6 - 3) 


where 


T g >(r' 2') = the transport integral operator, and 
Cg'-g(r,Q' -» ft) = the collision integral operator. 


The "Integral Emergent Particle Density Equation" was selected as the 
basis for the forward random walk since the source particles would be 
introduced according to the natural distribution. 

The random walk based on the above Equation (6-3) would introduce a 
particle into the system according to the source function. The particle 
travels to the site of its first collision as determined by the 
transport kernel (operator). Its weight is modified by the non¬ 
absorption probability and a new energy group and flight direction are 
selected from the collision kernel (operator). The transport and 
collision kernels are applied successively determining the particle's 
emergent phase space coordinates corresponding to the second, third, 
etc., collision sites until the random walk is terminated due to the 
reduction of the particle's weight below some cut-off value or because 
the particle escapes from that portion of phase space associated with a 
particular problem (for example, escape from the system, slowing down 
below and energy cut-off, or exceeding some arbitrarily specified age 
cut-off). 

In some cases, particularly in MASH, it is of interest to solve the 
adjoint problem. This involves solving the "Adjoint Integro- 
Differential Boltzmann Equation" given below. 
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(6-4) 


1 d 

- ft-V**(r,J5,ft f r) + X t (r,E)$*(r,E,Sl,t) 
= S*(r,E,Sl,t) + f fX.(r,E^ E\ Cl->Sl') $*(r,E',Cl',t)dE’dCl' 


where 


$*(r,£,fi,t) = 


the time dependent angular adjoint fluence, 


and the other terms defined for the forward transport equation have 
equivalent meaning for the adjoint equation. The adjoint fluence is 
sometimes referred to as the particle's importance. 

The solution of the adjoint integral transport equation by Monte Carlo 
generally involves a solution for G.(r,Q,t), referred to as the integral 
emergent adjuncton density, i.e., the density of adjunctons with phase 
space coordinates (r,Q,t) leaving collisions. Quantities of interest 
are then obtained by summing the contributions over all collisions, and 
frequently over most of phase space. The "Integral Emergent Adjuncton 
Density Equation" is written (in operator notation) as: 


G s (r,Cl,t) = Pg(r,Q,t) + Cg'-g^ySl 1 — ► Cl) Tg>(r‘ —» r,Cl') Gy(r',ft',t') (6-5) 


where 


Tg'(r' r ,Q') = the transport integral operator. 


Cg'- f (r,W Cl) = the collision integral operator, and 


P*(r,Q,t ) = the source of adjunctons. 


Equation (6-5) is almost identical to the forward equation given in 
Equation (6-3) which defines the forward emergent particle density and 
serves as the formal basis of the random walk in MORSE. Consequently, 
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the same logic in MORSE can be used for both the forward and adjoint 
mode of solution. The Monte Carlo solution of Equation (6-5) will 
generate data from which the adjuncton fluence X g *(r,Q,t) and other 
quantities of interest can be determined. The general use of X g *(r,fi,t) 
must take into account the reversal of directions between adjunctons and 
real particles, i.e. Q (adjoint) - - Q (forward). Further, if outward 
boundary crossings would be scored in the forward problem, the 
corresponding source adjunctons would be introduced in the inward 
direction. Likewise, adjunctons would be scored for entering a volume 
from which the source particles in the forward problem would be emitted. 
It should be noted that many sources and response functions are 
isotropic, and the problem of directional reversal need not be 
considered. The various relationships between the adjoint and forward 
quantities are derived in Section 4.10 of Reference 1. 


6.1.2 In-Group Energy Biasing 

One feature of MORSE alluded to in the introduction was that several 
types of optional importance sampling techniques are available to the 
user. In standard MORSE, these include splitting, Russian roulette, 
exponential transform, and source energy biasing to name a few. In the 
MASH version of MORSE, there is an additional biasing scheme referred to 
as in-group energy biasing. In-qroup energy biasing is a methodology 
developed by W. Scott of SAIC 16 ' 1 * to adjust for irregularities observed 
in adjoint Monte Carlo analyses in thick media where the weights of 
adjoint particles could, in undergoing multiple scattering events, 
become very large, i.e., "the fat particle" problem. Such particles may 
be scored with a wide variety of weight values. This results in a very 
inefficient calculation with poor statistical precision, which is not 
improved bv longer run times. The procedure was first implemented in 
the MIFT2 1 ’ version of the VCS 20 ' 21 MORSE code by SAIC. After testing by 
both SAIC and ORNL, the procedure was installed into this version of 
MASH. A detailed description of the theoretical basis for in-group 
biasing is presented in Appendix B. The user should examine this 
section to understand the physics of the biasing technique. Here only a 
cursory explanation of how in-group biasing works is given. 

In-group energy biasing is easy to use. Unlike other Monte Carlo 
biasing methods, in-group biasing does not require that the user set up 
and input, based on his judgment, arrays of data to improve the 
efficiency of the Monte Carlo calculation. This means that a person 
less skilled in adjoint Monte Carlo can often successfully use MASH or 
adjoint MORSE, since use of in-group bias requires only the setting of a 
switch in MASH. Success in the use of the other biasing methods 
generally requires considerable adjoint Monte Carlo experience. 

The major objective of the in-group biasing scheme is to eliminate the 
instability in the variance for random walks. This is equivalent to 
eliminating the problem in which the weight of an adjoint particle can 
grow unbounded by many repeated in-group scatterings. 
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The defining feature of in-group energy biasing is that for all but the 
last group, a particle's weight only changes when it scatters to a new 
group. If the particle stays in the same group, its weight does not 
change. Thus, when an adjoint particle has a probability of non¬ 
absorption (PNAB) greater than 1.0, its weight will not increase so long 
as it scatters in the same group. When it finally upscatters to a new 
group, its weight will be increased by a fixed amount that is a function 
only of the cross sections and not of how many times the particle 
scattered in the same group. With standard adjoint MORSE, such a 
particle would have its weight increased by PNAB each time that it 
scattered so that its final weight upon upscatter would depend upon how 
many in-group scatterings that it had. 


6.2 MORSE CODE STRUCTURE 

Input to MORSE is read in five separate modules: (1) random walk; (2) 
cross section; (3) user; (4) source; and (5) geometry. The random walk 
input is read in subroutines INPUT1 and INPUT2 and includes all 
variables needed for the random walk process. The cross-section input 
is read in cross-section module subroutines XSEC, JNPUT, and READSG. 

The parameters needed to set aside storage are read in XSEC, the mixing 
parameters are read in JNPUT, and the actual cross sections are read by 
READSG. Cross sections may be either on card or on tape. Input 
information required for analysis of the histories is read by subroutine 
SCORIN of the analysis package which is called from INPUT2. Since the 
source varies from problem to problem, input may also be read in by 
subroutine SORIN for the definition of the source. The geometry input 
is read by subroutine JOMIN. Any additional input required by the user 
may be read in by subroutine INSCOR which is called from SCORIN. 

In general, output of input parameters occurs in the same routine in 
which the input was read. In addition, there are two routines (OUTPT 
and 0UTPT2) for the output of results of the random walk process. 

Output of analysis results is generally performed in subroutine NRUN, 
but may also be done in a user-written routine ENDRUN which is called by 
NRUN. 

The input section takes care of setting up all variables needed in the 
transport process. It should be noted that initial calculations by the 
cross-section module stem from subroutine calls in XSEC. The analysis 
portion of the code is interfaced with MORSE through BANKR with several 
uses made of cross-section routines in making estimates of the quantity 
of interest. With the exception of output from the random walk process, 
the rest of the code consists of subroutine calls by MORSE. The 
geometry module is interfaced through GOMST, and the source is 
interfaced through MSOUR. The diagnostic module is independent and any 
part of it may be executed from any routine. 

The diagnostic module provides an easy means of printing out, in useful 
form, the information in the various labelled commons and any part of 
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blank common. The IBM-360 version also has the following features: a 
special routine is provided for printing out the particle bank; by 
loading parts of core with a junk word, the diagnostic package can 
determine which variables have been used; a "repeating line" feature is 
also included. 

The usual geometry module for MORSE is the combinatorial geometry 
package (CG) 7 . However, the MORSE code in MASH contains the GIFT5 
geometry package developed at BRL 8 ' 11 . The GIFT5 geometry package is 
similar to CG; however, it contains a significant increase in the number 
of primitive bodies or "solids" and some added advantages relative to 
Monte Carlo tracking in complex geometries. The GIFT5 geometry package 
was first installed into the MIFT2 19 code by SAIC. After considerable 
testing, the package was installed into this version of MORSE for the 
MASH code system. 

An albedo scattering may be forced to occur at every entry into a 
specified medium. A sample subroutine is provided for specular 
reflection and a subroutine call is provided (ALBIN, called from XSEC) 
for reading and storing albedo data of any degree of complexity. Thus 
transport of particles may be carried out in parts of the problem and an 
albedo scattering treated for other parts of the problem. 

Time dependence is included by keeping track of the chronological age of 
the particle. For neutrons the age is incremented by the time needed to 
travel the distance between collisions if it traveled at a velocity 
corresponding to the average energy of the group. Provision is made for 
inputting a thermal group velocity separately. Nonrelativistic 
mechanics are assumed. The age of secondary gamma rays is determined 
from the neutron age at the collision site and is incremented by 
determining the time required to travel between collisions at the speed 
of light. For fission problems the age of the parent is given to the 
daughters at birth. 

There are several types of importance sampling techniques included in 
the code. The Russian roulette and splitting logic of 05R 12 is an 
option in MORSE. Also, the exponential transform is provided with 
parameters allowed as a function of energy and importance region. 

Source energy biasing is an option as well as energy biasing at each 
collision. In fission problems the fission weights may be renormalized 
as a function of an estimate of K eff so that the number of histories per 
generation remain approximately constant. If desired, all importance 
sampling may be turned off. 

Some other general features include the ability to run problems without 
the use of magnetic tapes the ability to terminate a job internally 
after a set elapsed CPU time and obtain the output based on the number 
of histories treated up to that time, batch processing for the purpose 
of determining statistics for groups of particles, and a repeat run 
feature so that results for a time-dependent fission problem may be 
obtained with statistical estimates. The output of numerous counters 
permits one to obtain an insight into the physics of the problem. 


6-9 








6.2.1 Random Walk Module 


The basic random walk process of choosing a source particle and then 
following it through its history of events is governed by the routines 
in this module of MORSE. A given problem is performed by following a 
number of batches of particles which then constitute a run. Multiple 
runs are also permitted. The batch process feature is used so that 
statistical variations between groups of particles can be determined. 
Thus, a batch of source particles is generated and stored in the bank. 
The random walk for this batch of particles is determined by picking one 
particle out of the bank and transporting it from collision to 
collision, splitting it into two particles, killing by Russian roulette, 
and generating secondary particles (either gamma rays or fission 
neutrons) and storing them in the bank for future processing. 

Termination of a history occurs when a particle leaks from the system, 
reaches an energy cutoff, reaches an age limit, or is killed by Russian 
roulette. 

The random walk module performs the necessary bookkeeping for the bank 
and the transportation and generation of new particles and relays this 
information to the analysis module for estimation of the desired 
quantities. Use is made of the cross-section module and the geometry 
module during the random walk process and the input-output routines for 
the reading and printing of pertinent information about the problem. 

In this module the main program is used to set aside the storage 
required in blank common and to pass this information to subroutine 
MORSE which is the executive routine for the random walk process. After 
performing the necessary input operations and setting up storage 
requirements, the walk process consists of three nested loops: one for 
runs, one for batches, and the inner-most is for particles. After each 
termination of the batch loop, some bookkeeping is required before the 
generation of a new batch of source particles. After the termination of 
a run, a summary of the particle terminations, scattering counters, and 
secondary production counters are output, as well as the results of 
Russian roulette and splitting for each group and importance region. 

There are only two main labelled commons (APOLLO and NUTRON) in the 
random walk routines. Tables 4.4 and 4.5 in Reference 1 list the 
definitions of the variables in these two commons. The parameters 
stored in these commons are labelled by "current" and "previous" 
descriptors which refer to values of parameters leaving the current and 
previous event sites, respectively (WTBC is the exception, being the 
weight entering the current event site). Also note that "event" 
includes boundary crossings, albedo collisions, etc., as well as real 
collisions. The user is afforded access to these parameters through 
several different calls to subroutine BANKR throughout the random walk. 
The calling routine and location in the random walk where BANKR is 
called is given in Table 6-1. The user can then interact with the 
random walk through additional programming only in subroutine BANKR and 
not need to work with the random walk routines themselves. The user 
also has an input option to write a collision tape for further analysis. 
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Table 6-1. BANKR Arguments. 


BANKR 

Argument 

Called 

From 

Location of BANKR 

Call in Random Walk 

-1 

MORSE 

After call to INPUT - to set parameters 
for new problem. 

-2 

MORSE 

At the beginning of each batch of NSTRT 
particles. 

-3 

MORSE 

At the end of each batch of NSTRT particles. 

-4 

MORSE 

At the end of each set of NITS batches 
a new problem is about to begin. 

1 

MSOUR 

At a source event. 

2 

TESTW 

After a splitting has occurred. 

3 

FPROB 

After a fission has occurred, 

4 

GSTORE 

After a secondary particle has been 
generated. 

5 

MORSE 

After a real collision has occurred 
post-collision parameters are available. 

6 

MORSE 

After an albedo collision has occurred - 
post-collision parameters are available. 

7 

NXTCOL 

After a boundary crossing occurs (the 
track has encountered a new geometry medium 
other than the albedo or void media). 

8 

NXTCOL 

After an escape occurs (the geometry has 
encountered medium zero). 

9 

MORSE 

After the post-collision energy group exceeds 
the maximum desired. 

10 

MORSE 

After the maximum chronological age has 
been exceeded. 

11 

TESTW 

After a Russian roulette kill occurs. 

12 

TESTW 

After a Russian roulette survival occurs. 

13 

GSTORE 

After a secondary particle has been generated 
but no room in the bank is available. 
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The input allows the user to specify which of the thirteen positive 
BANKR Arguments to put on the tape as well as which of the 36 parameters 
listed in Table 6-2. These features of MORSE prove useful in applying 
the code to new and different problems. 


Table 6-2. Variables That May be Written on Collision Tape (NBIND). 


Variable 

Number 

Variable 

Name 

Variable 

Number 

Variable 

Name 

1 

NCOLL 

19 

WTBC 

2 

NAME 

20 

ETAUSD 

3 

IG 

21 

ETA 

4 

U 

22 

AGEC 

5 

V 

23 

OLDAGE 

6 

w 

24 

NREG 

7 

X 

25 

NMED 

8 

Y 

26 

NAMEX 

9 

z 

27 

WATEF 

10 

WATE 

28 

BLZNT 

11 

I GO 

29 

BLZON 

12 

UOLD 

30 

VEL(IG) 

13 

VOLD 

31 

VEL(IGO) 

14 

WOLD 

32 

TSIG 

15 

XOLD 

33 

PNAB 

16 

YOLD 

34 

NXTRA 

17 

ZOLD 

35 

EXTRA1 

18 

OLDWT 

36 

EXTRA2 
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6.2.2 Multi group Cross-Section Module 

The function of this module in the multigroup Monte Carlo code is to 
read ANISN-type 3 cross sections for media or elements, mix several 
elements together to obtain media cross sections, determine group-to- 
group transfer probabilities and determine the probabilities and angles 
of scattering for each group-to-group transfer. All variables are 
flexibly dimensioned and are part of blank common. 

Various types of cross sections can be processed by the cross-section 
module. Neutron only, gamma ray only, neutron gamma-ray coupled, or 
gamma rays from coupled neutron gamma-ray cross sections can be 
processed for either a forward or an adjoint problem with or without 
fission. The Legendre coefficients are stored if a next-event estimator 
is to be used. Table 6-3 indicates the relationship between the various 
input parameters in the random walk module and the cross section module. 
The user must be careful that these particular parameters match. 

The cross sections are read for one coefficient and one element into a 
buffer area. Then these cross sections are decomposed into total, 
fission, and downscatter matrix and stored in temporary arrays so that 
they may be mixed to form media cross sections. The total and fission 
cross sections are stored only once for an element, but the downscatter 
matrix is store' 1 * r each coefficient. 

The cross ?s .ons are transposed as stored if an adjoint problem is 
being solved. Two major reordering steps are carried out to produce an 
adjoint cross-section library: 


1. The inscatter matrix is transposed, i.e. the table position 
associated with group g describing scattering from g' to g is 
changed to describe scattering from g to g'. 


2. The ordering of the groups is reversed, i.e. data for group 
IGM appear first in the output file, followed by IGM-1, etc. 


After all cross sections are stored, the contribution of each element to 
the cross section for the media is determined. Also at this time the 
sum of the downscatter vector for each group is determined for the 
future calculation of the nonabsorption probability; the gamma- 
production cross section is also determined by summing the transfers to 
the gamma groups. After the cross sections for the medium have been 
determined, the nonabsorption probability, fission probability, and 
gamma-production probabilities are formed by dividing by the total cross 
section. The downscatter matrix is converted to a probability table by 
dividing by the scattering cross section. 
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Table 6-3. Examples of the Relationship Between Random Walk 
and Cross Section Module Group Input Parameters. 


Case A - Neutron Only Cross Sections (22 groups) 

Case B - Gamma-Ray Only Cross Sections (18 groups) 

Case C - Neutron Gamma-Ray Coupled Cross Sections (22-18 groups) 


Problem Type 


Case A 

Case B 

Case C 

Case C 

Case C 

Input 

Top 14 

Top 17 

n only 

7 only 

n + 7 

Variable 

groups 

groups 

Top 14 gps 

Top 17 gps 

14n + 177 


MORSE 

Input 


NGPQTN 

14 

0 

14 

NGPQTG 

0 

17 

0 

NMGP 

22 

18 

22 

NMTG 

22 

18 

22 

NGP 

22 

18 

22 

NGG 

0 

0 

0 

INGP 

22 

18 

40 


0 

14 


17 

17 

CARD B 

18 

40 

Variables 

18 

40 


0 

22 a 

CARD XB 

18 

18 

Variables 

40 

40 



a Must be equal to total number of neutron groups in the 
data; otherwise it picks up the gammas from the wrong location. 

Note: For Cross sections with full downscatter, NDS * NGP, 

NDSG - NGG, INDS - INGP, and ITBL - number of 
downscatters + number of upscatters + 3. Usually, 

ISGG » number of upscatters + 4; i.e., NUS + 4. 
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A simple three group example showing the relationship between a forward 
and adjoint cross-section set is shown below. In this example, there is 
no upscatter, one activation cross section, and the cross-section input 
parameters (defined in Section 6.3.3) are IHT - 4, ISGG - 5, and ITBL = 
7. 


Direct 

Adjoint 

* F (1) 

* F (3) 

**(D 

**( 3) 

w (1) 

w (3) 

* T (D 

* T (3) 

*(1-1) 

o(3-3) 

0 

0 

0 

0 

* F ( 2) 

* F (2) 

**(2) 

**(2) 

w (2) 

l/ * F (2) 

* T (2) 

* T ( 2) 

*(2-2) 

*(2-2) 

*d-2) 

*(2-3) 

0 

0 

* F (3) 

* F d) 

**(3) 
i/* (3) 

**(1) 

w*(l) 

* T (3) 

* T (1) 

o(3-3) 

*d-l) 

o(2-3) 

*d-2) 

o(l-3) 

o(l-3) 


The Legendre coefficients for each group-to-group transfer are converted 
to angles and probabilities of scattering at those angles by the use of 
a generalized Gaussian quadrature using the angular distribution as a 
weight function. That is, 


J ^ finMW = 
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where 


M is any polynomial of order 2n-l or less, 


ui(fi) is the angular distribution for the cosine of the 
scattering angle, 


fi t is a set of discrete cosines, and 

wi is the probability of the corresponding cosine. 


Thus, a set of /ij's and w/s that satisfy the equation must be found. 
To do this, a set of polynomials, Q f , which is orthogonal with respect 
to the angular distribution, is defined such that 


J*' QMQi 


(fi)uj(fi)dfi = Sij Ni , 


where N, is a normalization constant. 

The moments of the angular distribution M s , i*l,2n-l, determine the 
orthogonal polynomials, Q it i = l,n. The desired cosines, are given 
by the roots of Q n , 


Qn(t*i ) = 0 , 


and the corresponding probabilities are 



In the process of deriving the orthogonal polynomials, some restrictions 
on the moments of the angular distribution are obtained. These 
restrictions arise if both the original distribution and the derived 
point distribution are to be everywhere non-negative. The restrictions 
are: 
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1) N| > 0 for i*l,n. 

This restriction may be written in terms of the determinant 
of the determinant of the moments: 


1 Mi M 2 • - Mi 

Mi M 2 M 3 . • . M i+ i 


Mi Mi + i Mi +2 • • • M 2 i 


2) The roots of Q { (p) must all lie in the interval 


-1 < Hi < 1 . 


It must be emphasized that the restriction arising from the original 
distribution being everywhere positive (or zero) does not restrict the 
truncated expansion of the distribution to be everywhere positive. That 
is, moments from a truncated distribution that is not necessarily 
everywhere positive are used to derive a discrete distribution with 
positive probabilities. 

Other characteristics of this representation are that the information is 
compact, the angles are clustered where the angular distribution is 
peaked, and because of the restrictions, cross sections that have 
blunders in them are rejected because they produce angles outside the 
range of -1 to +1. 

An option on input makes it possible to write a tape containing the 
processed cross sections and all variables from Common LOCSIG needed 
during the random walk process. In starting a new case, the normal 
cross-section input, except for the cross sections and the mixing cards, 
is required. Both the information from input and from tape are printed 
for compatibility checks. Note that if an adjoint problem is being 
solved, the input information and the information for tape will not be 
identical. 

One of the more important options provided for in this package is the 
ability to treat upscattering. Thus, multigroup cross sections with many 
thermal groups may be utilized. (In a crude way photoneutron production 
may be tr^ted as an upscatter process from a gamma-ray group to a 
neutron c jp.) Also, the capability of using cross sections with 
partial downscatter is present. 
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The downscatter array made it possible to have a feature that is helpful 
in reducing cross-section storage requirements for neutron problems 
involving materials other than hydrogen when a cross-section tape is 
used. For non-hydrogeneous media there is very seldom complete 
downscatter to thermal energy, so a routine was added to search the P 0 
array to determine the minimum downscattered energy group for any 
element and for each group. The zero cross sections for downscatters 
below this energy group are not stored, and thus the storage 
requirements are reduced. 

Another important feature of this module is the ability to use a point 
cross-section representation for the total, scattering, and fission 
cross sections. Either an 05R 12 or an 06R 13 ' 14 (variable supergroup 
boundaries) format tape (C0DE7) may be used over a specified energy 
range. The energy of a particle is chosen uniformly within an energy 
group for the purpose of selecting the particle track lengths or 
calculating a nonabsorption probability. For gamma rays or for neutron 
energies outside the specified range, the total cross section from the 
multigroup cross sections is used. (Point, total, and scattering cross 
sections for the adjoint case can also be used.) For some applications, 
detailed nonabsorption probabilities and fission probabilities may also 
be required. The logic was included in the new module for the cross- 
section manipulation required for the use of the point cross sections. 

Up to 16 point cross-section media with up to 100 supergroups are 
allowed. 

One major change in philosophy has been made for the case in which point 
cross sections are used. The modular framework of MORSE is broken in 
this case in that Subroutine GTSCT uses the energies corresponding to 
the multigroup boundaries in order to set up an array of indices. It is 
assumed by GTSCT that the energies exist in the first NTG cells of Blank 
Common. 

An executive program XCHEKR 15 may be used in conjunction with this 
cross-section module independent of MORSE for the purpose of checking 
and editing multigroup cross sections. Also, this executive program may 
be used to generate a processed cross-section tape independent of a 
MORSE calculation. 


6.2.3 The GIFT5 Geometry Package 

GIFT5 geometry is similar to the older MORSE combinatorial geometry in 
that specified geometric shapes (spheres, cylinders, parallelepipeds, 
etc.) may be combined to describe complex geometry configurations. As 
with MORSE combinatorial geometry, a GIFT5 geometry file is comprised 
largely of a "body" or "solids" table followed by a "zone" or "region" 
table in which the bodies are combined by (+), (-), or (OR) operators. 
In GIFT geometry, however, "bodies" (MORSE terminology) are called 
"solids" and "zones" (MORSE terminology) are called "regions". In the 
GIFT5 graphics code there is no equivalent to the "regions" as used in 
MORSE. In MASH, where the term "region" could have a double meaning, 
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the MORSE equivalent of "region" is called "importance region" to 
minimize any confusion. In this section the GIFT terminology, i.e., 
solids and regions, equivalent to bodies and zones in MORSE, will be 
used. 

Installation of the GIFT5 geometry in MASH was greatly facilitated by 
BRL's initial installation of GIFT into MORSE to derive MIFT, in which 
they (BRL) had developed the necessary interfaces between MORSE and the 
GIFT geometry, and SAIC's installation of GIFT5 into MIFT2. SAIC's 
Installation of GIFT5 in MIFT consisted largely of replacing GIFT 
geometry routines with GIFT5 routines. The subsequent installation of 
GIFT5 into the MORSE code in MASH involved mainly a transfer of the 
MIFT2 logic into the MORSE logic with a few changes necessary to 
accommodate the minor differences in the two codes. 

MASH interfaces with the GIFT5 geometry routines in four major 
locations: INPUT1 for processing of the input geometry data, LOOKZ to 
identify the region (zone) for starting particles, and GOMST and NXTCOL 
to track particles during the random walk. INPUT1 calls GIFTM, which 
sets a few switches and calls GENI. 

GENI calls SOLIN, which processes the solids (bodies) table, REGIN, 
which processes the regions (zones) table, IDIN, which processes the 
identification table, and RPPIN which processes any boundary RPP 
information. SOLIN calls ALBERT, which processes ARB input data, and 
ARIN, which processes ARS input data. Several other routines, including 
DOT, CROSS, EQUIV, UNITV, UN2, ARANG2, CPOINT, and PLANE, are called by 
these routines to perform miscellaneous operations such as vector dot 
products, cross products and sorts. GENI and routines called by GENI 
analyze the geometry for obvious errors, such as XMAX smaller than XMIN 
for an RPP or non-coplanar points on an ARB, and print error messages 
when such errors are found. GENI then stores the geometry data with 
XMAX, XMIN, YMAX, YMIN, ZMAX, and ZMIN bounding values for each region 
(zone) for use in subsequent analyses. 

LOOKZ calls RAY to identify the starting region location for starting 
particles. RAY calculates the region numbers and intercept distances 
for all regions on a 1ine-of-sight from the particle start point to exit 
from the defined geometry. 

GOMST and NXTCOL determine the particle coordinates at the next 
collision site by calculating the expected flight path distance in mean 
free paths, then tracking the particle through the different regions and 
materials of the geometry until the mean free path is "expended" or 
until the particle escapes from the geometry. 

First, in NXTCOL, the mean free path for the particle path is calculated 
with a call to GETETA, a flag, MARK, is set to 1, and the call to GOMST 
is made. In GOMST the distance DISTO for the particle mean free path in 
the current medium is calculated. Then the particle starting 
coordinates and direction cosines, XB and WB are stored. A call to the 
GIFT5 REGION subroutine is made to determine the distance along the 
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particle line-of-sight to exit from the current region, and a test is 
made to determine whether the particle does, in fact, exit the region. 

If it does exit the region, a call to GIFT5 subroutine RAY is made to 
calculate intercepts of the particle line-of-sight, MARK is set to 0 
(indicating a region boundary crossing) and the distance traveled is 
cumulated. A test on MARK is then made. If MARK is equal to 1, the 
collision site is in the same region as before and GOMST and NXTCOL are 
exited. If MARK is zero, a boundary crossing occurred and tests are 
made first for the extended path scoring option (if "Yes", a score is 
made), then for particle escape (if "Yes", an escape is scored). If 
there is no escape, the flight distance in the new medium is calculated. 

As seen in the foregoing paragraph, particle tracking uses calls to 
GIFT5 subroutines RAY and REGION. Given a particle line-of-sight 
defined by a starting point and a direction, REGION calculates the 
distance along the ray to all entry and exit points for a specified 
region. Because a region can have complicated shapes, it is possible 
for a ray to have several entry and exit points. While REGION 
calculates entry and exit points for only one specified region, RAY does 
so for all regions on the line-of-sight. 

The particle tracking logic with GIFT5 routines is considerably 
different from the tracking logic in combinatorial geometry MORSE-CG. 

In MORSE, each time a particle exits a region, MORSE-CG searches an 
"experience" table to determine candidate neighboring regions which the 
particle might be entering. If analysis shows that the particle is not 
entering any of the regions in the experience table, or if there are no 
candidate regions in the table, all regions are checked sequentially 
until the new region is found. When the new region is found, it is 
added to the experience table. 

MASH, during the processing of the input geometry data, performs three 
steps which facilitate later particle tracking. First, bounding X, Y, 
and Z values are found for each region, and the resulting XMIN, XMAX, 
YMIN, YMAX, ZMIN, ZMAX are stored in the MASTER/ASTER array (the Region 
RPP Table discussed in Appendix C). Second, these XMIN, XMAX, YMIN, 
YMAX, etc., data sets are each sorted, high value first, carrying along 
the region number, and stored in the MASTER/ASTER array. Third, the 
bounding RPP for the entire problem geometry is defined and stored. 

During particle tracking, MASH first derives the RPP which bounds the 
particle flight path line-of-sight (ray) from its starting point to 
escape from the defined geometry. Next it compares the XMIN, XMAX, ..., 
ZMAX data for this bounding RPP to the region min-max table to derive 
the shortest list of candidate regions that the ray might intercept. 

Then for each region on the list, it compares the region min/max values 
with the ray RPP, eliminating any region RPP that doesn't intersect the 
ray RPP. Next a "fly by" test is performed, then a check of whether the 
ray actually penetrates the region bounding RPP. Last, if all of the 
above tests are passed, a check is made, via a call to REGION, to 
determine whether the ray penetrates the region. 
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The above procedure is performed in RAY for all candidate regions. When 
it is found that the ray does penetrate a region, the RIN and ROUT 
distances (distances along the ray to region entry and exit, 
respectively) are added to a list (RAYIN and RAYOUT), in common RAYINT, 
along with the region number, IREGON, and a count of the number of 
entries on the list, NINT. Last, the RAYIN/RAYOUT list is checked for 
overlapping regions. If overlapping regions are found, an error message 
is written. 

In initial testing of MIFT2 after installation of the GIFT5 geometry 
routines, SAIC found that particle tracking resulted in undetected 
errors whenever there were undefined regions in the geometry. While 
vehicle geometries for VCS analysis have not intentionally been 
developed with undefined regions, undefined regions could result from 
errors in developing the complex vehicle geometry. The result of 
undefined regions in MIFT, before corrections were implemented, was that 
particles got lost in the sense that their X,Y,Z coordinates did not 
correspond to the regions. In the analysis of a test case vehicle, for 
example, in which the interior air region was intentionally left 
undefined, the effect was to fill the interior with the steel boundary 
material. 

In MORSE-CG, entry of particles into an undefined region also results in 
the particle getting lost. MORSE-CG, however, kills the particles by 
setting the weight (WATE) to zero and picks up a new particle after 
writing a message. 

The error in the treatment of undefined regions was corrected (by SAIC) 
in MIFT2 by the addition of subroutine RAYCHK, which is called by NXTCOL 
immediately after the call to subroutine RAY. Fortunately the RAYIN and 
RAYOUT arrays from RAY contain all the information necessary to 
reconstruct the ray penetration parameters for the undefined region. 

When a particle encounters an undefined region, RAYCHK reconstructs the 
ray parameters and assigns a region number of -99 and a material number 
of 1000 (void) to the undefined region. RAYCHK then prints a message 
for each of the first 25 undefined region encounters, giving the region 
numbers of adjacent regions to help locate the problem area. The RAYCHK 
subroutine was included in the installation of GIFT5 into the MASH 
version of MORSE. 

There is, of course, a danger of analyzing an erroneous geometry with a 
code that treats geometric undefined regions or overlapping regions or 
both. The best solution appears to have the code print a limited number 
(e.g., 20) of messages indicating that it has found undefined or 
overlapping regions and then to continue the calculation. Users could 
alter the logic to terminate after the message, if they wish. In any 
event, the user must be responsible to generate the correct code input. 

The bulk of the data used in GIFT5 is stored in a single large array in 
COMMON GIFTCM. This array has various names in different routines, but 
usually appears as MASTER or ASTER. MASTER and ASTER are equivalenced 
for storage of both real and integer data. This array is currently 
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dimensioned to 5,000 in the 6IFT5 geometry routines and subroutine GOMST 
of the MORSE random walk interface routines. The value of 5,000 defines 
the storage used throughout the code, and a user who wishes to 
redimension this value either upward or downward needs to change this 
common size throughout the code. This size is sufficient for a medium 
size problem. SAIC used a MASTER/ASTER array size of 15,000 for the 
analysis of some very large problems. It was, for example, sufficient 
for the analysis of the MPGS (Mobile Position Gun System) test case, 
which consists of 281 solids and 233 regions, and the Long Island 
Barracks, which consisted of 308 solids and 311 regions. 

There are 12 sets of data stored in the MASTER/ASTER array as follows: 


1. Solid pointers, one word per solid plus 1, integer data. Two 
values are packed in each word, ITYPE in the right 15 bits and 
LOCDA in the next 16 bits. ITYPE is the solid type, and LOCDA is 
the beginning location at which specific data for the solid are 
stored. 


2. Solid data, as required to describe the solids, real. 


3. Region pointers, integer, one word for each region. Two values 
are packed in each word, NUMDES in the right 15 bits and LOCDES in 
the next 16 bits. NUMDES is the number of solids in the region 
description and LOCDES is the beginning location at which the 
region descriptors for the specific region are stored. 


4. Region descriptors, integer, one word per descriptor, NUMDES 

descriptors per region. Two numbers are packed in each word, the 
solid number in the right 15 bits and an operator code number in 
the left 16 bits. The operator code is 1 for 0R+, 2 for OR-, 

3 for RG+, 4 for RG-, 5 for + and 6 for -. 


5. Region circumscribing RPP data (XMIN, XMAX, YMIN, YMAX, ZMIN, ZMAX 
limits for each region). Six words of real data are stored for 
each region (zone). 


6. Ordered region numbers, integer, sorted into the order large to 
small, first based on XMIN values for circumscribing RPP, then an 
XMAX, on YMIN, on YMAX, on ZMIN, and last on ZMAX. The total size 
of this part of' the MASTER/ASTER array is six times the number of 
regions, beginning at storage location LREGON. 
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7. XMIN, XMAX, YMIN, YMAX, ZMIN, and ZMAX for RPP that circumscribes 
the overall defined geometry. Six words, real, beginning at 
storage location LENRPP. 


8. Identification table, integer, one word for each region. Two 
values are packed in each word, ISPACE in the right 15 bits and 
ITEM in the next 16 bits. ISPACE is the space code number 
(columns 11-15 of the input identification table) and ITEM is the 
component code number (columns 6-10 of the input identification 
table). 


9. Region ray table, integer, one word per region. Three values are 
packed in each word. The right 15 bits stores the ray number, the 
next 10 bits stores the location where the ray end is stored and 
the next 10 bits stores the location where the ray start is 
stored. 


10. Ray intersection table storing distance (RIN) from start of ray to 
first intersection of solid. Real, not packed. One word per 
sol id. 


11. Ray intersection table storing distance (ROUT) from start of ray 
to last intersection of solid. Real, not packed. One word per 
solid. 


12. Surfaces and ray count, one word per solid. Three integers packed 
per word, the ray number is the right 14 bits, the surface number 
at ray exit in the next 9 bits, and the surface number at ray 
entry in the next 9 bits. 


6.2.4 Modifications to MORSE for In-Group Biasing 

Several routines in the MORSE module of MASH were modified to 
incorporate the changes to add the in-group biasing option. Subroutines 
COLISN, GPROB, GSTORE, GTIOUT, and INPUT1 were modified, and a new 
subroutine GETLOC was added. Also, invoking the iri-group bias option 
changes the definition of the quantity GWLO from the probability of 
secondary particle production to the fraction of the probability of 
secondary particle production specified by the cross sections (natural 
probability). 

Subroutine INPUT1 was modified to read the in-group biasing switch INGB 
as the eighth parameter on CARD I. Variable INGB turns on the in-group 
when equal to 1; otherwise, the option is off. INGB is in 
COMMON/IGBABS/. Subroutine COLISN handles scattering probabilities P fj 
which give the probability of scattering to group j when a scattering 
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has occurred in group i. Originally the particle weight WATE was 
multiplied by PNAB f , the non-absorption probability for group i where i 
was the group coming into the collision; and then a random number was 
compared with the probabilities P u to select the outgoing group. This 
sampling scheme was modified for in-group biasing. The same coding is 
used except that the random number is compared to F*?^, where F is a 
bias factor as follows: 


if 1 - j - 1, then F - 1.0 

if i - j ¥ 1, then F - PNAB,- 

if i * j, then F - 1 - P^PNAB, 


1 - Pii 


After the outgoing group has been sampled, the weight is corrected by 


WATE - WATE * PNAB/F. 


The method implemented correctly treats in-group biasing with or without 
energy biasing and includes logic for splitting when WATE exceeds WTMAX. 
The splitting game actually resamples the upscatter distribution for 
each splitting secondary particle. In this way each secondary is 
independent of the others so that the probability transition is more 
completely represented than in the original scheme where all splitting 
secondaries had the same energy group and the same direction cosines. 


6.2.5 Modifications to MORSE-CG for the MASH Code System 

The current version of MASH contains the newest MORSE-CG routines. The 
main differences between this and the previous VCS have been explained 
elsewhere in this report. The routines that are peculiar to MASH have 
been rewritten with the following characteristics: 

1. All arrays are now variably dimensioned. This required the 
addition of several arrays of data to blank common. Table 6-4 
defines these variables. 

2. All tape unit numbers are variables. 

3. Common structure is revised, having fewer commons with more 
variables in each. A labelled common IVCS was added for this 
purpose, and it is defined in Table 6-5. 
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4. Subroutine structure is slightly different. One of the changes 
was to split subroutine BANKR into two routines, BANKR and 
NBANKR. 

5. Problems terminate in an orderly manner. If a job fails 
because the particle name exceeds the maximum storage allowed 
(IMAXN), data generated for all but the last batch is copied 
from the scratch unit to the user's save unit. A message is 
printed by thp new routine EREND to notify the user of this and 
of how many batches were actually completed. 

6. A new MORSE leakage tape format is used in order to provide 
more definitive information on the case that was run. 


Table 6-4. Location of MASH Arrays in BLANK COMMON. 


Mnemonic 

variable 

name 

Location in 
blank common 

BC(I) or NC(I) 

Purpose 

ILEAK(NB) 

I - NLAST + NB - 1 

Number of particles/batch 
that leak from system 

ILEAK(NITS+1) 

I - NLAST + NITS 

Number of records of leakage 
parameters 

ASORC(NB) 

I - LOCLK + NB - 1 

Total source weight for 
batch NB 

BUF(IPOS) 

I - LOCASC + IPOS - 1 

Temporary storage of leakage 
parameters 

IGRUP(IN) 

I - LOCBUF + IN - 1 

Group number of source 
energy in forward mode 

IDET(IN) 

I - LOCIGP + IN - 1 

Detector number where response 
for escaping particle IN will 
be stored 

IVEH(IN) 

I - LOCIDT + IN - 1 

Signal indicating where (7,n) 
conversion occurred 

RDEN(NR) 

I - LOCIVH + NR - 1 

Density factor for altering 
total cross section for 
importance region NR 
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Table 6-5. Definition of Variables in Common IVCS. 


Variable Definition 

SWATE Total source weight for current batch 

TOTS Total particle weight for the entire run 

(i.e., the summation from 1 to NITS batches of SWATE) 

IMAXN The size of arrays IVEH, IGRUP, IDET - defined as 5*NM0ST 

MAXSZ The size of the buffer for the leakage parameters 

(set at 1000) 

IGRND Media number of ground 

IAIR Media number of air 

NREC Number of records written to scratch unit ISCU 

NAME1 The name of the particle that split 

ISCU Logical unit number of scratch unit for leakage parameter 

storage (set to 23) 

ICTU Logical unit number of MORSE leakage tape (set to 24) 

IPOS Counter for number of leakage parameters in buffer 

LOCLK Starting location in blank common of ILEAK array 

LOCASC Starting location in blank common of ASORC array 

LOCBUF Starting location in blank common of BUF array 

LOCIGP Starting location in blank common of IGRUP array 

LOCIDT Starting location in blank common of IDET array 

LOCIVH Starting location in blank common of IVEH array 

LOCRDN Starting location in blank common of RDEN array 

TTL(IO) Title of problem (will be written to leakage tape) 
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6.3 MORSE INPUT REQUIREMENTS 


This section describes the input data for the MORSE program. The data 
is free-form. Most of the rules governing FIDO free-form input in 
Appendix A are appropriate. MORSE free-form input requires that the 
'$$' and the "**' not begin in column 1. Error messages will be printed 
in this case, but users often misinterpret them. Therefore, begin the 
"SS" and "**" parameters in column 2. MORSE input also does not require 
data block terminators "T". Standard MORSE includes the SAMBO input 
(after the cross-section module input). The MORSE component in MASH 
does not include the SAMBO routines since the analysis of the adjoint 
leakage tape is performed in DRC. Consequently, the additional input 
data after the cross-section input are special data required by MASH. 
This data replaces the usual SAMBO analysis input. 


6.3.1 Random Walk Input Instructions 
This input is read by subroutine INPUT1. 


CARD A Job Title Card [20A4] 

TITLE 80 alphanumeric character description 

[NOTE: Any character other than a blank or alphanumeric in column one 
will terminate the job.] 


CARD B Job Control Parameters [Begin array with "$$"] 

S$ 

NSTRT number of particles per batch 

NMOST maximum number of particles allowed for in the 

bank(s); may equal NSTRT if no splitting, fission, 
and secondary generation 
NITS number of batches 

NQUIT number of sets of NITS batches to be run without 
calling subroutine INPUT 
NGPQTN number of neutron groups being analyzed 

- 5 — 

NGPQTG number of gamma-ray groups being analyzed 
NMGP number of primary particle groups for which cross 

sections are stored; should be same as NGP (or the same 
as NGG when NGP = 0) on Card XB read by subroutine XSEC 
NMTG total number of groups for which cross sections are 
stored; should be same as NGP+NGG as read on Card XB 
read by subroutine XSEC 
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NCOLTP set greater than zero if a collision tape is desired; the 
collision tape is written by the user routine BANKR 
IADJM set greater than zero for an adjoint problem 

[NOTE: For NASH analysis, IADJH Is always set > 0] 

- 10 — 

MAXTIM maximum clock time in minutes allowed for the problem 
to be on the computer; [15.5 hrs is max] 

MEDIA number of cross-section media; should agree with NMED 
on Card XB read by subroutine XSEC 
MEDALB albedo scattering medium is absolute value of MEDALB; 
MEDALB - 0, no albedo information to be read in, 

MEDALB < 0, albedo only problem - no cross sections 
are to be read, 

MEDALB > 0, coupled albedo and transport problem. 

[NOTE: For MASH analysis, MEDALB is always set - 0] 

[NOTE: See Table 6-3 in Section 6.2.2 for examples on parameters 
NGPQTN, NGPQTG, NMGP, and NMTG.] 


CARD C Source Control Parameters [Use "$S" and "**" as indicated] 

SS 

ISOUR source energy group if > 0 

[if ISOUR < 0 or if ISOUR = 0 and NGPFS * 0, 

SORIN is called for input of Cards El and E2.] 

NGPFS number of groups for which the source spectrum is 
to be defined. [If ISOUR < 0, NGPFS * 2] 

ISBIAS no source energy biasing if set equal to zero; 
otherwise the source energy is to be biased, 
and Cards E2 are required. 

NOTUSD an unused variable. Must specify a "0". 


WTSTRT weight assigned to each source particle 
EBOTN lower energy limit of lowest neutron group (eV) 
(group NMGP) 

EBOTG lower energy limit of lowest gamma-ray group (eV) 
(group NMTG) 

TCUT age in sec at which particles are retired; 

if TCUT - 0, no time kill is performed 
VELTH velocity of group NMGP when NGPQTN > 0; 
i.e., thermal-neutron velocity (cm/sec) 
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CARD D Source Control Parameters [Begin with "**".] 
** 


XSTRT 

YSTRT — X, Y, Z coordinates for source particles 
ZSTRT - 1 

AGSTRT starting age for source particles. 

UINP —i source particle direction cosines; 

VINP — if all are equal to zero, 

WINP —* isotropic directions are chosen in MORSE 


[NOTE: Source data on Cards C and D will be overridden by any changes 
in subroutine SOURCE.] 


CARDS El Input Source Distribution [Begin with "**"] 
[NOTE: Omit if ISOUR on Card C > 0 or if ISOUR - N6PFS « 0] 


FS NGPFS values of FS, where FS equals the unnormalized 
fraction of source particles in each group 

CARDS E2 Relative Importance of Group Source [Begin with "**"] 

[NOTE: Omit if ISOUR > 0 or if ISOUR < 0 and ISBIAS « 0] 

** 

BFS NGPFS values of BFS, the relative importance of a 
source in group I. (If ISBIAS > 0) 

CARDS F Energy Group Boundaries [Begin with "**"] 

** 

ENER NMTG values of ENER, the energies (in eV) at the upper 
edge of the energy group boundaries 

[NOTE: The lower energies of groups NMGP and NMTG were read on Card C.] 
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CARD 6 Collision Tape Control Parameters [215,5X,3611,5X,1311] 

[NOTE: Omit if NCOLTP on Card B s 0] 


NHISTR 

NHISMX 

NBIND(J),J*1,36 
NCOLLS(J),J=1,13 


logical tape number for the first collision tape, 
the highest logical number that a collision tape 
may be assigned. 

an index to indicate the collision parameters to 
be written on tape. 

an index to indicate the types of collisions to 
be put on tape. 


[NOTE: See Tables 6-1 and 6-2 in Section 6.2.1 for information 
concerning NBIND and NCOLLS.] 


CARD H Random Number 

RANDOM starting random number. 

IBM 3033 - (Z12 Format) 

CRAY - (4X,020 Format) 

CDC 6600 - (4X,020 format) 

UNIVAC 1108 - (4X,012 Format) 


CARD I Biasing Control Parameters [Begin with "$$"] 

SS 

NSPLT index indicating that splitting is allowed (if > 0) 

NKILL index indicating that Russian roulette is allowed (if > 0) 
NPAST index indicating that exponential transform is invoked 
(if > 0) (Subroutine DIREC required) 

NOLEAK index indicating that non-leakage is invoked (if > 0) 
IEBIAS index indicating that energy biasing is allowed (if > 0) 
MXREG number of importance regions described by geometry input 
(will be set to one if s 0) 

MAXGP group number of last group for which Russian roulette or 
splitting or exponential transform is to be performed. 
[Note: For adjoint, set ■ NMTG or overstoring results.] 
INGB in-group bias switch (INGB - 1 recommended) 

* 1 implies use in-group biasing 

* 0 implies do not use in-group biasing 
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CARD J Biasing Parameters [use "$$" and "**' 
[NOTE: Omit if NSPLT + NKILL + NPAST - 0] 


as indicated] 


$S 


NGP1 

NDG 

NGP2 

NRG1 

NDRG 

NRG2 


The following weight standards and path-stretching 
parameters are assigned from energy group NGP1 to 
energy group NGP2, inclusive, in steps of NDG and 
from importance region NRG1 to importance region 
NRG2, inclusive, in steps of NDRG. If NGP1 = 0, 
groups 1 to MAXGP will be used; if NRG1 = 0, 
importance regions 1 to MXREG will be used (both 
in steps of one). Usually, NDG «= 1 and NDRG = 1. 


** 


WTHIH1 weight above which splitting will occur. 

WTLOW1 weight below which Russian roulette is played. 

WTAVE1 weight given those particles surviving Russian roulette. 
PATH path-length stretching parameters for use in 
exponential transform (usually 0 < PATH < 1). 

[NOTE: The above information is repeated until data for all groups 
and importance regions are input.] 

[NOTE: End Card(s) J with a negative value of NGP1, i.e. t NGP1= -1 
example $$-100000** 0.0 0.0 0.0 0.0] 


CARDS K Energy Biasing Parameters [Begin with "**"] 
[NOTE: Omit if IEBIAS on Card I £ 0] 


((EPROB(IG,NREG), IG = 1, NMTG), NREG = 1, MXREG) 

Values of the relative energy importance of particles 
leaving a collision in importance region NREG. Input 
for each region must start on a new card. 


CARD L Problem Identification [Begin with "$$"] 

$$ 

NSOUR set < 0 for a fixed source problem; otherwise the source 
is from fissions generated in a previous batch 
MFISTP index for fission problem, if < 0 no fissions are allowed 
NKCALC the number of the first batch to be included in the 
estimate of K eff ; if < 0 no estimate of K eff is made 
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NORMF the weight standards and fission weights are unchanged 
if < 0; otherwise fission weights will be multiplied, at 
the end of each batch, by the latest estimate of K eff and 
the weight standards are multiplied by the ratio of 
fission weights produced in previous batch to the average 
starting weight for the previous batch. For 
time-dependent decaying systems, NORMF should be > 0. 


CARDS M Fission Neutron Weights [Begin with "**"] 

[NOTE: Omit if MFISTP on Card L - 0] 

** 

(FWLO(I), 1=1, MXREG) 

values of the weight to be assigned to fission neutrons. 


CARDS N Fission Induced Source Particle Fractions [Begin with "**"] 
[NOTE: Omit if MFISTP on Card L — 0] 

** 

(FSE(IG.IMED), IG = 1, NMGP), IMED = 1, MEDIA) 

the fraction of fission-induced source particles in 
group IG and medium IMED. 

[NOTE: Input for each medium must start on a new card.] 

CARDS 0 Secondary Particle Production Probability [Begin with "**"] 

[NOTE: Omit if N6PQTN - 0 or NGPQTG - 0, i.e., include if 
coupled neutron gamma-ray problem] 


((GWLO(IG,NREG) IG - 1, NMGP or NMTG - NMGP), NREG = 1, MXREG) 

values of the probability of generating a secondary 
particle. The secondary particle will be a gamma ray 
in the forward problem and a neutron in the adjoint 
problem. NMGP groups are read for each importance 
region in a forward problem and NMTG-NMGP for an 
adjoint problem. 
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[MOTE: The definition of GWLO depends on whether or not 

In-group biasing Is specified (Card I, variable INGB), 
as follows: 

INGB>1 (In-group biasing invoked) GWLO Is the fraction 
of the natural production probability as specified 
by the cross sections and may be assigned values 
greater than, equal to, or less than one. 

INGB-0 (no In-group biasing) GWLO is the probability of 
generating a gamma ray (adjoint neutron).] 


[NOTE: Input for each importance region must start on a new card.] 


6.3.2 GIFT5 Geometry Input Instructions 
This input card is read in subroutine GIFTM. 


CARD GA GIFT5 Program Control Card [1011, 2F10.0, 315 format] 

[NOTE: Option is not set if ■ 0; otherwise the option is set] 

IPRNT print MASTER-ASTER array of processed geometry 
ITEMPR print identification table by item 
IMNMAX print ordered region rpp equivalents 
ISOLEQ print solid rpp equivalents 
NOPRNT suppress GENI printing 

- 5 — 

IWSOL print solid table 

IWREG print region table 

IWRPP print region rpp table 

IWID print region identification table 

IWSUM print summary table 

- 10 — 

TOL geometry tolerance 

TOLLOS line-of-sight tolerance 

IVOID void space code 

IFANTM phantom item code 

I END signal end of components along ray 


The control specifications card consists of first, a series of ten print 
control switches on 1011 format, for which a 0 usually means "do not 
print" and a 1 means "print". "0000100000" appears useful for this 
card. Next are tolerances, for which 0.001 appears adequate. The last 
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inputs on the card are void, phantom and ray end codes, 1, 0, and 0, 
respectively. 


The GIFT5 input geometry consists of five parts as follows: 

1. Title Card 

2. Target Specification Card 

3. Solids Table 

4. Regions Table 

5. Region Identification Table 

Detailed descriptions of all these sections of input are given in 
Appendix C. Here, only the input instructions will be presented. 


NOTE: The next six sections of input (Cards GB through Cards GG) 
for MASH are read from LOGICAL UNIT 8 (as currently 
configured). This is noted because the rest of the input 
is read from LOGICAL UNIT 5.) 


CARD GB GIFT5 Title Card [A2, 3X, A60 format] 

TGTUN target unit specification [(cm) only for MASH] 
ITITLE target geometry description title 

This input card is read in subroutine GENI. 


CARD GC GIFT5 Target Specification Card [215 format] 

NSOLID number of geometry solids in Solids Table 
NRMAX number of geometry regions in Regions Table 

This input card is read in subroutine GENI. 


CARD GD GIFT5 Solids Table [A5, A3, Al, IX, 6F10.0, A10 format] 

These input cards are read in subroutine SOLIN. 

The solids table defines the basic geometric shapes. Table 6-6 
summarizes the input for the different solid types. The basic format 
for all cards in the solids table is (A5, A3, Al, IX, 6F10.0, A10) with 
the first field (A5) in the format normally used for the sequence number 
of the solid in the solid table, the second field (A3) used to designate 
solid type (e.g., RPP for rectangular parallel piped or SPH for sphere) 
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Table 6-6. Summary Description of Input for Solids Table. 


1-5 

6-8 

9-10 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

71-80 

NO. 

RPP 


XMIN 

XMAX 

YMIN 

YMAX 

ZMIN 

ZMAX 

COMMENTS 

NO. 

BOX 


VX 

VY 

VZ 

HX 

HY 

HZ 

COMMENTS 

NO. 



WX 

WY 

WZ 

DX 

DY 

DZ 

COMMENTS 

NO. 

RAW 


VX 

VY 

VZ 

HX 

HY 

HZ 

COMMENTS 

NO. 



WX 

WY 

WZ 

DX 

DY 

DZ 

COMMENTS 

NO. 

SPH 


VX 

VY 

VZ 

R 



COMMENTS 

NO. 

ELL 


VX 

VY 

VZ 

AX 

AY 

AZ 

COMMENTS 

NO. 



B 






COMMENTS 

NO. 

ELL 

G 

VX 

VY 

VZ 

AX 

AY 

AZ 

COMMENTS 




BX 

BY 

BZ 

CX 

CY 

AZ 

COMMENTS 

NO. 

TOR 


VX 

VY 

VZ 

NX 

NY 

NZ 

COMMENTS 




R1 

R2 






NO. 

RCC 


VX 

VY 

VZ 

HX 

HY 

HZ 

COMMENTS 

NO. 



R 






COMMENTS 

NO. 

REC 


VX 

VY 

VZ 

HX 

HY 

HZ 

COMMENTS 

NO. 



AX 

AY 

AZ 

BX 

BY 

BZ 

COMMENTS 

NO. 

TRC 


VX 

VY 

VZ 

HX 

HY 

HZ 

COMMENTS 

NO. 



R1 

R2 






NO. 

TEC 


VX 

VY 

VZ 

HX 

HY 

HZ 

COMMENTS 

NO. 



AX 

AY 

AZ 

BX 

BY 

BZ 

COMMENTS 

NO. 



RATIO 






COMMENTS 

NO. 

TGC 


VX 

VY 

VZ 

HX 

HY 

HZ 

COMMENTS 

NO. 



AX 

AY 

AZ 

BX 

BY 

BZ 

COMMENTS 

NO. 



T (A) 

T(B) 





COMMENTS 

NO. 

HAF 


A 

B 

C 

D 



COMMENTS 

NO. 

ARS 


NC 

NP 

NR 




COMMENTS 

NO. 



XI 

Y1 

Z1 

X2 

Y2 

12 

COMMENTS 

NO. 



X3 

Y3 

Z3 

ETC. 



COMMENTS 


(START NEW CARD WITH EACH CURVE) 

CONVEX ARS HAS SAME INPUT EXCEPT COLS 9-10 NOT BLANK 
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Table 6-6. Summary Description of Input for Solids Table (Continued). 


1-5 

6-8 

9-10 

11-20 

21-30 

31-40 

41-50 

51-80 

61-70 

71-80 

NO. 

ARB 

4 

XI 

Y1 

Z1 

X2 

Y2 

12 

COMMENTS 

NO. 



X3 

Y3 

Z3 

X4 

Y4 

Z4 

COMMENTS 




FACES 

GENERATED 

123 

412 423 

431 



NO. 

ARB 

5 

XI 

Y1 

Z1 

X2 

X2 

12 

COMMENTS 

NO. 



X3 

Y3 

Z3 

X4 

Y4 

Z4 

COMMENTS 

NO. 



X5 

Y5 

Z5 




COMMENTS 




FACES 

GENERATED 

1234 

512 523 

534 

541 


NO. 

ARB 

6 

XI 

Y1 

Z1 

X2 

Y2 

12 

COMMENTS 

NO. 



X3 

Y3 

Z3 

X4 

Y4 

Z4 

COMMENTS 

NO. 



X5 

Y5 

Z5 

X6 

Y6 

16 

COMMENTS 




FACES 

GENERATED 

1234 

2365 1564 512 

634 


NO. 

ARB 

7 

XI 

Y1 

Z1 

X2 

Y2 

12 

COMMENTS 

NO. 



X3 

Y3 

Z3 

X4 

Y4 

Z4 

COMMENTS 

NO. 



X5 

Y5 

Z5 

X6 

Y6 

Z6 

COMMENTS 

NO. 



X7 

Y7 

Z7 




COMMENTS 




FACES 

GENERATED 

1234 

587 145 

2376 

1265 

4375 

NO. 

ARB 

8 

XI 

Y1 

Z1 

X2 

Y2 

12 

COMMENTS 

NO. 



X3 

Y3 

Z3 

X4 

Y4 

Z4 

COMMENTS 

NO. 



X5 

Y5 

Z5 

X6 

Y6 

Z6 

COMMENTS 

NO. 



X7 

Y7 

17 

X8 

Y8 

Z8 

COMMENTS 




FACES 

GENERATED 

1234 

5678 1584 2376 1265 4378 

NO. 

ARB 

N 

Apr 

NPE 1 

NEQ 

NAE 



COMMENTS 

NO. 



XI 

Y1 

Z1 

ETC. 



COMMENTS 





NPE.NE.O 

[6(14,2130] 

(NEG.* 

-Y) 


NO. 



FACE1 

FACE2 

FACE3 

ETC. 



COMMENTS 





NEQ.NE.O 






NO. 



A1 

B1 

Cl 

D1 



COMMENTS 

NO. 



A2 

B2 

C2 

D2 



COMMENTS 

NO. 



ETC. 






COMMENTS 





NAE.NE.O 

[2(F10.4,110)] 



NO. 



AZ1 

ELI 

PN1 

AZ2 

EL2 

PN2 

COMMENTS 

NO. 



AZ3 

EL3 

PN3 

ETC. 



COMMENTS 
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Table 6-6. Summary Description of Input for Solids Table (Continued). 


SOLID TABLE SYMBOLS (A5,A3,A2,6F10.0,A10) 

V - VERTEX 

H - HEIGHT VECTOR 

W - WIDTH 

D - DEPTH 

N - NORMAL 

A - SEMI-MAJOR AXIS 

B - SEMI-MINOR AXIS 

C - SEMI-MINOR AXIS OF ELLIPSE OF XSECT (ELLG) 

R - RADIUS 

T - LENGTH OF TOP AXIS WITH SAME DIRECTION AS BOTTOM AXIS 
NC - NUMBER OF CURVES 
NP - NUMBER OF POINTS PER CURVE 
NR - NUMBER OF POINTS READ DIRECTLY 


ARBN AND 

HAF SYMBOLS 


NPT 

- NUMBER OF POINTS 


NPE 

- NUMBER OF FACES DEFINED BY 3 

POINTS 

NEQ 

- NUMBER OF FACES DEFINED BY EQUATION 

NAE 

- NUMBER OF FACES DEFINED BY AZ 

, EL AND POINT 

A,B,C,D 

- PLANE EQUATION COEFFECIENTS 

AX + BY + CZ ■ 

AZ 

- AZIMUTH ANGLE 


EL 

- ELEVATION ANGLE 


PN 

- POINT NUMBER 



or blank if a continuation card for the solid, the third (Al) field used 
to designate a variant of the solid type (e.g., a 6 for a six-vertex 
arbitrary polyhedron or ARB6), the fourth field (6F10.0) used for the 
solid parameters, and the final (A10) field reserved for user notes or 
comments. 

The parameters required to define the various solids are different from 
one type of solid to another. Usually, however, the parameters can be 
classified as being one of three types, a "vertex point", a "vector" or 
a "scalar". The vertex point is specified by its X,Y,Z coordinates, a 
vector is specified by its components in the X, Y, and Z directions, and 
a scalar is a single numeric value, for example the radius of a sphere. 

The summary of the solids table input data given by Table 6-6 will be 
useful for persons familiar with combinatorial geometry, but a more 
detailed description of the geometry solid types and their input is 
necessary for new users and for users using new and more exotic solid 
types. Therefore a more detailed description of the various geometry 
solid types, including pictures, has been included. Because of its 
bulk, this description has been placed in Appendix C. 
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CARD 6E GIFT5 Regions Table [15, IX, 9(A2, 15) IX, A10 format] 
These Input cards are read in subroutine REGIN. 


The GIFT5 geometry regions table is very similar to the zones table in 
MORSE combinatorial geometry. Via the regions table, the shape and 
space of several solids can be "combined" to define a component of the 
system being described. Three operators, a "+", a and an "OR" ; and 
combinations thereof, are used to define the "intersection", 
"subtraction" or "union" of solids to form a more complex shape. A 
detailed description of how to use these operators, along with several 
examples, is given in Appendix B. The un-initiated user of 
combinatorial geometry should refer to these examples before attempting 
to model a complex geometry. 

The general format for the regions table is 15, IX, 9(A2,I5) IX, A10. 

The first (15) field is the region sequence number. Each line has 
provisions for nine pairs of OR operator fields and solid numbers with + 
or - sign, followed by 10 spaces for comment. (The IX means an unused 
column on the card). Continuation cards can be used for regions 
described by the combination of more than nine bodies. For continuation 
cards, the region (first 15) entry is left blank. 

[NOTE: The cards of the above format defining the various regions in 
the configuration are followed by a card with a -1 in columns 4 and 5. 
This "-1 CARD", as it is called, is the flag that marks the end of the 
region table.] 


CARD 6F GIFT5 Region Identification Table [515, 5X, A40 format] 
These input cards are read in subroutine IDIN 

The identification table is used to assign identification code numbers 
and additional information to the regions defined in the region table. 
Entries in the identification tables, in format (515, 5X, A40), are as 
fol1ows: 


Columns 

Parameter 

1 - 

5 

Region number 

6 - 

10 

Component code number (1-9999) 

11 - 

15 

Space code number (1-99) 

16 - 

20 

Material co'L 

21 - 

25 

Percent density 

31 - 

70 

Alphanumeric region description 
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Most of the above information is not used by the GIFT5 package in MORSE 
nevertheless the table must be included in input runstreams. For MORSE 
only the region number (columns 1-5) need be entered. All the other 
columns may be left blank (material numbers are assigned in other input 
to MORSE). 


CARD GG GIFT5 Region RPP Table 

[NOTE: The Region RPP Table discussed in Appendix C is optional and 
typically is not input in MASH. The GIFT5 program will 
automatically produce a Region RPP Table. Consequently, the 
user does not have to enter any data here.] 


REMINDER: The remaining sections of input for MASH are read from 
LOGICAL UNIT 5. This is noted because the previous 
six sections of the input (Cards GB through Cards GG) 
were read from LOGICAL UNIT 8. 


CARD GH Geometry Region Material Specification Table [1415 format] 
This input card is read in subroutine OVER. 

MED material number 

NOMED number of regions which are made up of material MED 
IZONE(I), I - 1, NOMED 

NOMED region numbers having the material number MED 

[NOTE: These cards are entered (in sets) for each code material number 
until all regions have a designated material. The first two 
parameters (MED and NOMED) are on a card by themselves. The 
region numbers are then entered on a second card.] 

CARD GI Importance Region Assignment Table [1415 format] 

This input card is read in subroutine OVER 
IR(I), 1=1, NRMAX 

the importance region assignment for each geometry region 
is read in this array. 
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6.3.3 Cross-Section Module Input Instructions 
This input is read by subroutine XSEC. 


CARD XA Cross Section Title Card [20A4] 

[NOTE: This title Is also written on tape if a 

processed tape is written: therefore, It Is 
suggested that the title be definitive.] 


CARD XB Cross Section Control Parameters [Begin with "$$"] 

$$ 

NGP the number of primary groups for which there are cross 
sections to be stored. Should be same as NMGP input 
in MORSE. 

NDS number of primary downscatters for NGP (usually NGP). 

NGG number of secondary groups for which there are cross 

sections to be stored. 

NDSG number of secondary downscatters for NGG (Usually NGG). 

INGP total number of groups for which cross sections are to 

be input. 

- 5 --- 

ITBL table length, i.e., the number of cross sections for each 
group; (usually equal to number of downscatters 
+ number of upscatters + IHT). 

ISGG location of within-group scattering cross sections; 

(usually equal to number of upscatters plus IHT+1). 

NMED number of media for which cross sections are to be stored; 
should be same as MEDIA input in MORSE. 

NELEM number of elements for which cross sections are to be read. 

NMIX number of mixing operations (elements times density 

operations) to be performed (must be > 1). 

- 10 

NCOEF number of coefficients for each element, including P 0 . 

NSCT number of discrete angles (usually the integer value 
of NCOEF/2). 

ISTAT flag to store Legendre coefficients if greater than zero. 

IHT location of total cross section in the table. 


[NOTE: See Table 6-3 in Section 6.2.2 for examples on parameters 
NGP, NGG, and INGP.] 
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CARD XC Cross Section I/O parameters [Begin with "$$"] 

$$ 

IRDSG switch to print the cross sections as they are read 
(if > 0). 

ISTR switch to print cross sections as they are stored 
(if > 0). 

IFMU switch to print intermediate results of ji's calculation 
(if > 0). (Ignored if IXTAPE < 0) 

IMOM switch to print moments of angular distribution (if > 0). 
(Ignored if IXTAPE < 0) 

IPRIN switch to print angles and probabilities (if > 0). 
(Ignored if IXTAPE < 0) 


IPUN switch to print results of bad Legendre coefficients 

(if > 0). 

IDTF switch to signal that input format is DTF-IV format 
(if > 0); otherwise, ANISN format is assumed. 

(Ignored if IXTAPE < 0) 

IXTAPE logical tape unit if binary cross section tape; set equal 
to 0 if cross sections are from cards. If negative, then 
the processed cross sections and other necessary data from 
a previous run will be read; in this case (IXTAPE < 0) no 
cross sections from cards and no mixing cards may be input. 
The absolute value of IXTAPE is the logical tape unit. 

JXTAPE logical tape unit of a processed cross-section tape to be 
written. This processed tape will contain the title card, 
the variables from common LOCSIG and the pertinent cross 
sections from blank common. 

I06RT logical tape unit of a point cross-section tape in 
06R format. 

- 10 — 

IGQPT last group (MORSE multigroup structure) for which the 
06R point cross sections are to be used (< NMGP). 


CARD XD Element Identifiers [Begin with ”$$"] 


[NOTE: Omit if IXTAPE £ 0] 

Element identifiers for cross-section tape. If element 
identifiers are in same order as elements on tape, the 
efficiency of the code is increased due to fewer tape 
rewinds. 
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CARDS XE Cross Sections from Cards [Begin with "**" if free-form] 


[NOTE: Omit if IXTAPE A 0] 

If cross sections are in free-form, a card with "**" in 
columns 2 and 3 must precede the actual data. ANISN 
format if IDTF < 0; otherwise, DTP-IV format. Cross 
sections for INGP groups with a table length ITBL for 
NELEM elements each with NCOEF coefficients. 


CARDS XF Cross-Section Mixing Table [Use "$$" and "**" as indicated] 


[NOTE: Omit if IXTAPE < 0] 

$5 

KM medium number. 

KE element number occurring in medium KM (negative value 
indicates last mixing operation for that medium). 
Failure to have a negative value causes code not to 
generate angular probabilities for that media, i.e. 
(LEGEND and ANGLE not called). 


RHO density of element KE in medium KM in units of 
atoms/(barn cm). 

Example Card XF: $$ KM KE ** RHO 


[NOTE: NMIX (see Card XB) cards are required.] 


CARDS XG 06R Tape Control Parameter [Begin with "$$"] 


[NOTE: Omit if I06RT < 0] 

SS 

NXPM number of point cross-section sets per medium found 
on an 06R tape. 

« 1, total cross section only, 

• 2, total + scattering cross section, 

- 3, total, scattering, and »/*fission cross section. 
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6.3.4 Special NASH Input Instructions 

In addition to the MORSE input describad above, the following input data 
is required for a MASH run. These parameters are either included on the 
leakage tape read by DRC, or are used to determine parameters used on 
the leakage tape. 


CARD AA Leakage Tape Title [10A4] 

TTL Title to be placed on leakage tape 

CARD BB Region Density Factors [Begin with "**"] 


RDEN(I), 1=1, MXREG 

Density factor for each importance region 


CARD CC Air/Ground Media Indicators [Begin with ''$$"] 
5 $ 

IGRND Media number of the ground 

IAIR Media number of air 


Two media numbers must be specified wherein a flag is 
placed on the product of secondary particle (neutron) 
generation. The variable names assigned to these numbers 
indicate that the conventional application of this input 
is to flag neutrons generated in the ground (IGRND) and 
the air (IAIR). Any media may be specified, with the 
understanding that the contribution of the flagged 
particles will be labeled GROUND and AIR, regardless of 
their true source. 


6.4 ANISN NUCLIDE FORMAT CROSS-SECTION FILE 

In a MORSE problem, cross sections are read from card input and/or from 
an external data set in nuclide-organized format, i.e., all the cross 
sections for one group of one nuclide, followed by other groups for that 
nuclide, and finally followed by data for other nuclides. Within a 
group, MORSE expects the ordering of data in the cross section table in 
the following format: 
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Table Position Entry 


Cross Section Type 


1 

»’(9) 

First activation cross section 
(if any) 

IHT-3 

o l (9) 

Last activation cross section 
(if any) 

IHT-2 

<Ag) 

Absorption 

IHT-1 

w F (g) 

Neutron Production 

IHT 

^ T (g) 

Total removal 

IHT+1 

* TUS (g) 

Total upscatter cross section from 

group g (omit this entry if NUS=0) 

IHS-NUS 

a(g+NUS-»g) 

Scattering from group g+NUS to g 


IHS-1 

*(g+i-g) 

Scattering from group g+1 to g 

IHS 

^(g-g) 

Scattering from group g to g 

IHS+1 

a(g-l-»g) 

Scattering from group g-1 to g 

IHM 

a(g-NDS-g) 

Scattering from group g-NDS to g 


From this, it can be seen that: 

NUS « IHS-IHT-2 = number of upscatter groups, if greater than 0, 
NDS - IHM-IHS * number of downscatter groups, 

L = IHT-3 - number of activation cross sections. 
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Special illustrations of interest are: 


IHM = IGM + 3 
IHS = 4 
IHT = 3 


h Full downscatter; no upscatter; 
no activation cross section 


and, 


IHM 

IHS 

IHT 


IGM + 5 + NUS 
6 + NUS 
4 


Full downscatter; NUS upscatter; 
— room for an activation cross 
section in position 1. 


Thus the parameters IHT, IHS, and IHM completely describe the format of 
the cross sections. If there are no activity cross sections, IHT=3. If 
there is no upscatter IHS = IHT + 1. If there is no downscatter IHM = 
IHS (i.e. a one group problem). If there is upscatter, MORSE will 
compute a total upscatter cross section for each group of each material 
and place that cross section in position IHM +1. The activity cross 
sections are not used in the MORSE code. 


6.5 MORSE LEAKAGE TAPE OUTPUT FILE FOR DRC 

Because of the large amount of core storage required for the VISTA free- 
field fluences, the forward-adjoint coupling could not be accomplished 
as the Monte Carlo calculation was performed. The coupling involved the 
calculation of the integral 

R = f $(P)$*(P);n-n)dP 

over the coupling surface S. 

We define 

$(P) = VISTA free-field fluences in phase space P. 

4»*(P) = MORSE adjoint fluence in phase space P. 

fln = cosine of angle between particle direction and 
inward normal. 
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The adjoint fluence at the r s , the position of the surface S, is written 
on a leakage tape along with other variables necessary for coupling the 
MORSE results with the VISTA results in DRC. The variables written on 
tape for each adjoint leakage are as follows: 


1. IG - the group number, 

2. IGS - the source ^roup, 

3. WTBC - the weight of the adjoint particle at leakage, 

4. U - X direction cosine, 

5. V - Y direction cosine, 

6. W - Z direction cosine, 

7. Z - height of leakage point, 

8. IDET - detector type in which particle is to be scored. 


An output buffer was blocked to transfer the data from core to tape 
efficiently at the end of each batch. This permitted batch statistics 
to be calculated in the DRC code which reads the MORSE leakage tape and 
the VISTA fluence tape and performs the coupling. The leakage tape 
generated by MORSE contains the following data: 


Record 1 
Record 2 
Record 3 

Record 4 

Record 5 
Record 6 


Title and date of MORSE run 

Initial Data Record - 24 words 

Energy Group Structure, Velocities, Source Spectra 

and Biasing Function - 4*NMTG words 

Array of Number of Particles Leaking Per Batch - 

NITS+1 words 

Array of Source Weights Per Batch - NITS+1 Words 
A Block of Leakage Information for 125 Adjoint Particles - 
1000 words 


Record N - 


A detailed description of the contents of the above records is 
given below: 


I. Record 1 - A 40 character title plus a 32 character date of run 

II. Record 2 - The USER labeled common (plus parameter INGB) is 
written in Record 2. The total number of groups, 
number of batches, etc., are contained in this record, 
as defined in Table 6-7. 
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III. Record 3 - The multigroup energy structure and group velocities 
are contained in Record 3. The data are: 

E(l) - Upper energy limit of Group 1. 


E(NMTG) - Upper energy limit of Group NMTG. 
VEL(l) - Velocity of Group 1. 


VEL(NMTG) - Velocity of Group NMTG. 
F(l) - Fraction of Source in Group 1 


F(NMTG) - Fraction of Source in Group NMTG 
B(l) - Biased Fraction in Group 1 


B(NMTG) - Biased Fraction of Source in Group NMTG 


IV. Record 4 - The number of particles that leak per batch are given 
in Record 4. This data is necessary in order to 
normalize the batch results per source neutron. 

L(1) - Number of leakage particles in batch 1. 


L(NITS) - Number of leakage particles in batch NITS. 


L(NITS+1) - Total number of leakage records written on tape. 


V. Record 5 - The sum of the source weights of the particles in a 
batch. 

ASORC(l) - Sum of weights of source particles in batch 1. 

ASORC(NITS) - Sum of weights of source particles in batch NITS 


VI. Record 6 - The adjoint leakage fluence blocked in groups of 125 
particles. 
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B(l) 

B(2) 

B(3) 

B(4) 

B(5) 

B(6) 

B(7) 

B(8) 


IG Energy Group 
IGS Source Group 
WTBC Weight at leakage 
U —| direction 

V — cosines 
W — 1 at leakage 

Z Height at leakage 
IDET Detector Type 


— Particle 1 


b- Particle 2 


B(1000) - IDET Detector Type 

VII. Additional records in the format of Record 6 to a total of 
L(NITS+1) leakage records. 


6.6 LOGICAL UNIT REQUIREMENTS 

Below is a listing of the files required to execute a MORSE case along with 
the default values used in the code. In setting up a MORSE case, efforts must 
be made for these units to be available. 


1. 

Logical 

Unit 

IXTAPE 

2. 

Logical 

Unit 

JXTAPE 

3. 

Logical 

Unit 

FT16 

4. 

Logical 

Unit 

ISCU 

5. 

Logical 

Unit 

ICTU 

6. 

Logical 

Unit 

10 

7. 

Logical 

Unit 

11 

8. 

Logical 

Unit 

108 

9. 

Logical 

Unit 

109 


Cross Section Input File [Default=10] 

Cross Section Output File [Default=2] 

CG Geometry Scratch Unit [Default=16] 

MORSE Adjoint Leakage Scratch File [Default=23] 
MORSE Adjoint Leakage File [Default=24] 

Printed Output [Default=6] 

MORSE Card Input File [Default=5] 

GIFT5 Card Input File [Default=8] 

GIFT5 Geometry Scratch Unit [Default=9] 


[NOTE: Logical Unit FT16 is not used with the GIFT5 Geometry Package. 
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Table 6-7. Definitions of Variables in USER COMMON. 


Number 

Variable 

Definition 

1 

AGSTRT 

Initial chronological age to be assigned to source 
particles 

2 

WTSTRT 

Initial weight to be assigned to source particles 

3 

XSTRT 

Initial x position to be assigned to source 
particles 

4 

YSTRT 

Initial y position to be assigned to source 
particles 

5 

ZSTRT 

Initial x position to be assigned to source 
particles 

6 

DFF 

Normalization for adjoint problems 

7 

EBOTN 

Lower energy boundary (eV) of last neutron group 
(group NMGP) 

8 

EBOTG 

Lower energy boundary (eV) of last gamma-ray group 
(group NMTG) 

9 

TCUT 

Chronological age limit 

10 

10 

Logical unit for output 

11 

11 

Logical unit for input 

12 

IADJM 

Adjoint switch (> 0 for adjoint problem) 

13 

NGPQT1 

Problem-dependent energy group limit 

14 

NGPQT2 

Problem-dependent energy group limit 

15 

NGPQT3 

Problem-dependent energy group limit 

16 

NGPQTG 

Group number of lowest energy gamma-ray group 
to be treated 

17 

NGPQTN 

Group number of lowest energy neutron group to 
be treated 

18 

NITS 

Number of batches to be run 

19 

NLAST 

Last cell in BLANK COMMON used by random walk 
package 

20 

NLEFT 

Number of cells in BLANK COMMON available to user 

21 

NMGP 

Number of primary energy groups 

22 

NMTG 

Total number of energy groups 

23 

NSTRT 

Number of source particles for each batch 
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6.8 SAMPLE PROBLEM 


The sample problem demonstrates the adjoint Monte Carlo analysis of the 
two-meter box experiments. 22 ' 23 The two-meter box, i.e., "NATO standard 
test bed" is a large cubical steel walled box with a layer of 5.08-cm- 
thick steel plates mounted on the top, bottom, and all four sides. The 
exterior set of plates yield overall outside dimensions for the box of 
220.32 cm x 220.32 cm x 220.32 cm, and are removable. The interior 
steel box has outside dimensions 210.16 cm x 210.16 cm x 210.16 cm with 
each wall having a thickness of 5.08 cm. This yields an interior air 
space with dimensions of 200 cm x 200 cm x 200 cm and thus gives the 
test bed the common name - "the two-meter box." The box also contains 
lift tabs (for movement by crane), drainage holes at the base, a cable 
access hole at the base on the back side of the box, and two hatches. 

The hatches are located in the center of the top and back faces of the 
box and the hatch diameters in the interior box and outside plates are 
staggered to mitigate radiation streaming paths into the box. The 
hatches are included for loading and unloading experimental equipment, 
e.g., detectors, phantoms, etc., and for simulating open-hatch vehicle 
experiments. An isometric view of the two-meter box test bed is shown 
in Figure 6-1. 

A complete listing of the input cards for the sample problem is given in 
Figure 6-2, and Figure 6-3, and some selected output is shown in Figure 
6-4. Figure 6-2 represents the input on logical unit 5 which contains 
the random walk input, the GIFT5 geometry cards (GA, GH, and GI), the 
cross-section input, and the special MASH input for output to DRC. 

Figure 6-3 illustrates the GIFT5 geometry input read on logical unit 8 
for the Two-Meter Box for geometry Cards GB, GC, GD, GE, and GF). In 
viewing Figure 6-2, the input illustrates; the descriptive title for the 
MORSE case, 1000 particle per batch (NSTRT), 50 batches (NITS), and a 
maximum number of particles to be stored in the banks of 1500 (NMOST). 
Only one set of 50 batches was to be run (NQUIT). The energy group 
numbers being analyzed include 46 neutron groups (NGPQTN), 23 gamma 
groups (NGPQTG), 46 primary particle groups (NMGP), and 69 total groups 
(NMTG). The adjoint mode switch was set to one (IADJM=1 always), 120 
minutes of CPU time was allowed (MAXTIM), and there were four cross 
section media for the problem (MEDIA). 

The source was sampled from the distribution on Cards El (IS0UR=0, and 
NGPFS=69). Also, the input source energy spectrum was biased (ISBIAS=1) 
and the biasing parameters were read from Cards E2. Each starting 
particle had an initial weight of 1.0 (WTSTRT), and was initiated from 
the X, Y, Z position corresponding to (0.0, 0.0, 110.16 cm) in the 
geometry. Since UINP, VINP, and WINP were all zero, the source was 
assumed to be isotropic. The energy group boundaries are read from 
Cards FI. Card G was omitted because no collision tape was requested 
(NC0LTP = 0 on Card B). After the energy group boundaries, the starting 
random number seed is input (Card H). 

The next input card (Card I) indicates the splitting and Russian 
roulette are to be used (NSPLT and NKILL - 1) on four importance regions 
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(MXREG-4) for all 69 energy groups (MAXGP=69). Furthermore, in-group 
energy biasing is turned on (INGB-1). 

Four Card J's are input, one for each importance region, to give the 
weight standards for the splitting and Russian roulette. MXREG could 
have been defined as 3 since the second and third Card J are identical. 
Then the second three parameters (NRG1, NDRG, NRG2) on the second Card J 
would have read (2 13). This input is terminated by the -1 for NGP1 
on the last Card J. 

Card K is omitted because IEBIAS was equal to zero. All parameters on 
Card L are zero for this problem and consequently, Card M and Card N are 
not required. Card 0 is input four times, one for each importance 
region (MXREG on Card I). In this example, a GWLO parameter was set to 
1.0 for all regions and all groups. This has proven to be the most 
efficient use of this parameter with in-group biasing turned on. 

The GIFT5 program control card (Card GA) is next in the input stream, 

with the first 10 control parameters set to zero, the tolerances set to 

1.0 and the final three parameters set to zero. If the last three 
parameters are set to zero, GIFT5 will use the defaults. 

This input is followed by the geometry region material specifications 
cards (Cards GH) and importance region assignments card (Cards GI). The 
other GIFT5 geometry input is read from logical unit 8 and is presented 
in Figure 6-3. There are five sets of material region specification 
cards, four for the four different cross section materials, and one for 
the external void (MED=0). Even though there are four importance 
regions specified on Card I, only one region was used in the calculation 

since the Card GI parameters are all ones. There are 24 entries on the 

Cards GI corresponding to the number of regions in the GIFT5 geometry. 

The next section of input is the cross section Cards XA through XG. The 
energy group parameters (on Card XB) match the parameters read in Card 
B. There are four cross section media (NMLD), 24 elements (NELEM) to be 
read in from logical unit 10 (IXTAPE), 41 mixing operations (NMIX) to be 
performed and an output file written to logical unit 2 (JXTAPE). The 
cross section set was P 5 , (NCOEF-6), and the number of discrete angles 
was 3 (NSCAT-NCOEF/2). All of the cross-section print triggers on Card 
XC are turned off. The element identifiers (all Pj components) are 
entered on the Cards XD. There are 144 entries on these cards (NCOEF 
times NELEM). Card XE is omitted since the input ANISN library is on 
unit IXTAPE. The next 41 cards correspond to the mixing table on Card 
XF. The four different materials are constructed on these cards. 

Finally, the input in Figure 6-2 shows the special MASH input for use 
with DRC. This includes the short title card (40 characters) on Card 
AA, the importance region density factors (all 1.0 in this problem) on 
Card BB, and the air and ground identifiers (3 and 1, respectively) on 
Card CC. 
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Figure 6-3 illustrates the five GIFT5 geometry input Cards GB through GF 
read in on logical unit 8. The title card indicates units of 
centimeters and the target. The second card indicates 49 solids in the 
solid table, and 24 regions in the region table. The 49 solids follow 
(Cards GD) and then the 24 regions (Cards GE) Note the "-1" card to end 
the region table. Finally, the input shows the region identification 
table (24 cards, one for each region) The only information used from 
this card is the first column. 

The coupling surface used in the MORSE sample calculation to tabulate 
the adjoint leakage current was a RPP centered about the box (solid 1 in 
the solid table). Other coupling surfaces such as a sphere, right 
circular cylinder, etc., could be used also. The only assumption is 
that the VISTA free-field fluence at a given height does not vary 
between X-Y positions in the vehicle coordinate system. In order to 
include the particle leakage from the top and bottom of the vehicle, the 
RPP extended from below the air-ground interface to several centimeters 
above the top surface of the vehicle. The coupling surface is always 
the exterior boundary of the Monte Carlo geometry, i.e. where the 
particle enters the external void. Adjoint particles that cross this 
surface are terminated and recorded on the history data set. 

The selected MORSE output shown in Figure 6-4 first illustrates the 
input parameters read in the first four input data cards from logical 
unit 5, followed by tables of the input source spectrum and biasing 
parameters (Cards El and E2 and the input energy group boundaries (Cards 
F) This is followed by the splitting and Russian roulette parameters 
for the different importance regions (Cards I and J) and the secondary 
production parameters by energy group for the importance regions (Cards 
0). The next sections of input are from the GIFTS geometry package and 
give detailed edits of the geometry input data on logical unit 8. This 
print can be suppressed by setting the NOPRNT switch on Card GA to one. 
The geometry input array edits are followed by a storage summary for the 
geometry data, and then edits of the material region and importance 
region specification cards (Cards GH and GI). 

The output in Figure 6-4 then edits the processing of the cross section 
input on Cards XA through XG. On this sample problem, this information 
is suppressed. Large amounts of printout can be generated if the user 
is not careful with the print triggers on Card XC. It should be noted 
that the output shows a table of parameters that are read from tape and 
that the IXTAPE parameter in the "input/output options" table is set to 
-2. The input in Figure 6-2 illustrates the input the first time the 
sample problem was executed. This output reflects that the cross- 
section set generated in that run was saved and input for this case. 

The input illustrates what is required for an initial case. Once that 
case is run, and the cross-section set is saved for future use, only 
Cards XA, XB, and XC are required for the cross section input. Then the 
output would reflect what is being shown in the sample problem. 

The cross section edits are followed by a statement informing the user 
of the last location used in blank common. This is an indication of how 
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much core space the problem required based on the input received from 
the user. The normalized CDF for the adjoint source sampling is printed 
next, followed by the adjoint group structure. The next section of 
printout illustrates the actual random walk (by batch). Each batch will 
give the starting random number for the batch, the average source 
particles starting parameters, the time required to execute the batch, 
and a sequence of counters for the batch which correspond to the 13 
positive arguments for subroutine BANKR illustrated in Table 6-1 of 
Section 6.2.1 of this report. This information is useful in determining 
how well the user has set the problem up. Unfortunately, the best 
teacher in properly interpreting these counters is experience. The 
output also indicates several calls to subroutine RAYCHK, indicating an 
undefined region(s) in the geometry. This sequence of output is ended 
by the total time required to process all NITS batches. 

The last section of output comes from the analysis routines which 
summarize the events that occurred in the random walk process for the 
entire run. The first table is a summary table of the particle deaths, 
labeled "neutron deaths" followed by a table of scatterings by medium. 
The next several pages of output are different counters (by importance 
region and group) for the entire random walk. These tables include the 
real scattering counters, track length counters, secondary production 
counters, number of splittings, number of upscatter splittings, number 
of Russian roulette kills, and the number of Russian roulette survivals. 
Unfortunately, like the batch summary counters, only experience will 
increase the users full understanding and interpretation of all these 
arrays. The last output line informs the user of the total amount of 
CPU required to run the problem. 
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Figure 6-1. Schematic Diagram of the Two-Meter Box 
Geometry Model Used in the MORSE Analysis. 
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Figure 6-2. Sample HORSE Input for the Two-Meter Box Analysis. 
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Figure 6-2. (continued) 
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Figure 6-3. Sample GIFTS Input for the Two-Meter Box Analysis. 
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Figure 6-3. (continued) 
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MORSE Output for the Two-Meter Box Analysis. 






































































Figure 6-4. (continued) 







































Figure 6-4. (continued) 





















































igure 6-4. (cont 










































Figure 6-4. (continued) 
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Figure 6-4. (continued) 
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Figure 6-4. (continued) 
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Figure 6-4. (continued) 



















Figure 6-4. (continued) 



















Figure 6-4. (continued) 
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Figure 6-4. (continued) 
































































Figure 6-4. (continued) 
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Figure 6-4. (continued) 
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Figure 6-4. (continued) 




















7.0 DRC: A DETECTOR RESPONSE CODE 


7.1 INTRODUCTION TO DRC 


7.1.1 Background 

The Detector Response Code (DRC) in the MASH code system is used to 
couple the MORSE' Monte Carlo adjoint leakage information with the DORT 2 
free-field fluences to compute the estimates of the fluences and doses 
within the vehicle interior. Furthermore, DRC utilizes the free-field 
fluences and estimates from the in-vehicle fluences (and doses) to 
calculate neutron protection factors and reduction factors for the 
vehicle. 

The DRC code in MASH has undergone several modifications from its 
predecessor in the Vehicle Code System (VCS) 3 **. The current version of 
DRC contains the newest SAMBO analysis routines from the MORSE code 
system. The main difference between this and previous SAMBO versions is 
that input data is free-form and subroutine ENRGYS defines an array, 
IARR, which is a key to the correspondence between the DRC analysis 
group number and the MORSE random walk group number for use by 
subroutine FLUXST when scoring gruup-dependent data. This eliminated 
the requirement in the old VCS-DRC of having the DORT free-field 
fluences and MORSE adjoint leakages calculated in the same group 
structure. Furthermore, with the development of the new 69 group 
(46n-237) cross section set, it was advantageous to modify DRC to couple 
MORSE adjoint leakage calculations in 69 energy groups with previously 
calculated DORT free-field data in the old 58 group (37n-2l7) group 
structure. 

In the current version of DRC, the routines that are unique to DRC have 
been rewritten with the following characteristics: 


1. All arrays are now variably dimensioned. This required the 
addition of several arrays of data to BLANK COMMON. 

2. All logical unit numbers are variables within the coding, 
however, the programming pre-assigns particular numbers to 
each unit. 

3. The common structure is revised, having fewer commons with more 
variables in each. Two labeled commons, TDT1 and IDRC, contain 
all the necessary variables. 


‘Original documentation for the DRC program is found in the following 
reference: W. A. Rhoades, M. B. Emmett, G. W. Morrison, J. V. Pace, III, 
and L. M. Petrie, "Vehicle Code System (VCS) User's Manual," ORNL-TM-4648, 
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Oak Ridge National Laboratory, (August 1974). 

4. Use of only one radial (r)-bin is now allowed. Linear 
interpolation of the DORT fluences in the axial (z) direction 
is used based on adjacent z-bins. Several errors in choosing 
bins for coupling surfaces, discovered in the old VCS-DRC, have 
been corrected. 

5. Tapes produced with the new VISTA format are used. However, 
the programming logic is still included to read the old VISA 
tape formats. 

6. A new HORSE collision tape format is used. However, it may be 
disabled to allow reading the previous format. 

7. A new feature (mentioned above) is the ability to couple VISTA 
results from one group structure with MORSE results from a 
different group structure. This was added because there are 
VISTA results from the old 37n-2l7 group structure which will 
need to be coupled with the new 46n-237 group structure which 
MORSE runs will begin using. The method used is to bring all 
VISTA data to the MORSE structure at the start of the DRC 
analysis. This feature requires the energy structure for 
VISTA; and since it is not present on the VISTA file, it was 
added to the DRC inpuL data. 


7.1.2 Method Used 

The general structure of the MASH code system illustrated in Section 1.0 
of this report shows all data relevant to the calculation of the vehicle 
protection and reduction factors as input to the DRC module. In 
particular, the GRTUNCL/DORT air-over-ground analysis of the radiation 
environment is passed through VISTA for renormalization and reformatting 
for use in DRC in calculating the free-field fluences and doses and for 
folding with the adjoint leakage information from MORSE to calculate the 
in-vehicle fluences and doses along with the vehicle protection and 
reduction factors as a function of range and vehicle orientation 
relative to the source. A special feature of MASH is that the MORSE 
adjoint leakage information contains both the leaking particle's 
starting energy (source energy) and final energy (leaking energy). This 
allows DRC to calculate an energy fluence inside of the vehicle which 
can then be folded with any input dose response function such as a 
detector response function or a tissue dose response function. 
Consequently, one MORSE calculation can be used to analyze several 
different possible dose responses and/or several different radiation 
environments (GRTUNCL/DORT calculations). The basic equation used by 
MASH to calculate the dose inside of a vehicle is given in Equation l. 5 
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( 1 ) 


* = L d * L E */o(?.S)*; 0 (f,s5)5-s 

IG 


where A 
x 

Q 

IG 

$ 

$* 

n 


is the dose, 

is the space variable which is integrated over a closed 
surface A, 

is the angle variable which is integrated over 4* steradians, 
is an energy group index summed over all the energy 
groups in the transport problem, 

is the forward fluence calculated by the GRTUNCL/DORT codes, 
is the adjoint fluence calculated by the MORSE code, and 
is the unit vector normal to the area element A. 


To derive the actual equations used by DRC, it is necessary to consider 
that the adjoint fluence as calculated by adjoint Monte Carlo is 
approximated by Equation 2. 

, Nig ur. 

*5o(Z.fi) *4 E (2) 

iv i=l ' n « 


where N 



Xi 

Qi 

6 


is the total number of particles in the adjoint 
calculation, 

is the total number of particles that leak out of the 
calculation with energy group IG, 
indicates a leaking particle, 

is the weight of the i th adjoint particle that leaks 
with energy group IG, 

is the position of the i th particle when it leaks, 
is the direction of the i th particle when it leaks, and 
is the Dirac delta function. 


Therefore, Equation 2 approximates the adjoint fluence as a summation of 
Dirac delta functions ($) over the weights. The factor of l/(fi r n { ) 
converts a leakage current into a leakage fluence. Equation 2 can be 
substituted into Equation 1, resulting in Equation 3. 


A 


1_ 

N 


N 

£ * /Gi (*„&) w; G . 


(3) 
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Here, the dose is calculated by a sum over the products of the weights 
of leakage particles and the angular fluences at the location and 
direction of the leaking particles. One of the advantages of DRC is the 
simplicity of Equation 3. In this equation, the DORT angular fluence is 
differential in angle as calculated in DORT per unit weight and the W* 
is the actual particle leakage weight calculated by MORSE. In reality, 
DRC uses a slightly more complicated form of this equation as shown in 
Equation 4. 


*Ygs = M c. E (t.AWajcs, W 

iV ' ^IGS 1= 1 


where IGS corresponds to the source energy of an adjoint particle 
which is also scored on the MORSE particle leakage tape, 
$ v ic$ is the energy spectrum calculated by DRC inside the 
vehicle, and 

S*ics is the energy spectrum sampled when performing the 
MORSE adjoint calculation. 

Equation 4 then uses the particle leaking group, IG, and source energy, 
IGS, to transform Equation 3 into an equation for the energy spectrum 
inside of the vehicle. The dose inside of the vehicle is then 
calculated by Equation 5 which folds the internal energy spectrum with a 
response function of interest. 


A Rigs 
igs 


(5) 


The solutions of Equations 4 and 5 can be seen in the FOLD and FLUXST 
subroutines within the programming of DRC. 

An additional quantity that is calculated by DRC is the free-field dose 
which is used to calculate the vehicle protection factors and reduction 
factors. The free-field dose is calculated from the DORT angular 
fluences by a different equation as shown in Equation 6. 


Rig / 4t ft) (6) 

IG 


where A ff (x) is the free field dose at a point x which is calculated 
by summing a dose response over the scalar fluence at 
that point. 
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This is implemented in the code as shown in Equation 7 where the angular 
integration is replaced by a summation over all the DORT angle points. 


NANG 

>//(*■) = Y. R <c E *icM*) w k (v 

IG K 


where W K is the angular quadrature weight, 

K Indicates an angle direction, and 
NANG is the number of directions. 

Equation 7 is performed in Subroutine FREDOS in the DRC code and is 
subsequently used to calculate protection and reduction factors. 

The radiation transport coupling method employed in DRC allows for any 
complicated Monte Carlo geometry inside the coupling surface to be 
modeled in three dimensional detail. The two-dimensional GRTUNCL/DORT 
discrete ordinates air-over-ground environment is defined by an r-z 
coordinate system, where the radial axis r coincides with the x axis and 
is perpendicular to the y axis. The three dimensional Monte Carlo 
geometry system is completely contained within a cylindrical volume 
element defined by the maximum and minimum values chosen from the radial 
and axial mesh in VISTA. The coupling between the two systems occurs at 

the outer leakage surface of the Monte Carlo geometry within the 

cylindrical volume element. This coupling requires the Monte Carlo 
coordinate system to be rotated to align the x,y,z axes parallel to and 

in the same sense of the x,y,z axes of the GRTUNCL/DORT discrete 

ordinates system. When the adjoint Monte Carlo particle escapes its 
geometry system at a given point and in a given direction defined by its 
coordinate system, the coordinates, direction, and energy group can be 
converted to the discrete ordinates system so that the appropriate 
forward fluence can be determined in the evaluation of Equation 1. A 
full Eulerian rotation matrix is incorporated in DRC to allow for the 
alignment/rotation of the Monte Carlo geometry system within the 
discrete ordinates system. As presently configured, MASH allows for the 
rotation of the Monte Carlo geometry system in the x-y plane, i.e., 

rotation about the z axis. Future versions of MASH may allow full 

rotational capability. For additional information, a detailed 
derivation and description of radiation transport coupling methods can 
be found in Reference 6. 

In order to calculate the protection and reduction factors, the MORSE 
adjoint leakage tape includes a parameter, IDET, which identifies the 
detector type in DRC in which a leaking particle is to be scored. Table 
7-1 identifies the seven detector types utilized in DRC. The first four 

detector types are utilized on the MORSE adjoint leakage tape for 

scoring purposes. The last three detector types in Table 7-1, along 
with the free-field neutron, gamma ray, and total fluences and/or doses, 
are used in DRC to calculate the protection and reduction factors 
defined in Table 7-2. 
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In Table 7-2, the difference between the "protection factors" and " 
reduction factors" is the scoring of the vehicle produced secondary 
gamma dose (IDET-2 in MORSE or Detector 2 in Table 7-1). The neutron 
and gamma "protection factors" are a measure of how much the vehicle 
shielding reduces the dose from free-field neutrons and gammas, 
respectively, and is a useful parameter in engagement analysis. The 
"reductions factors," however, are a measure of how much the vehicle 
shielding alters the neutron or gamma dose as measured by a neutron or 
gamma sensitive detector. While the "protection factors" are most 
useful for engagement analyses, the "reduction factors" are most useful 
for comparing calculated results with experimental measurements. 


Table 7-1. Detector Response Definitions in DRC. 


Detector Response Definition 


1 Direct neutron - a neutron entering the vehicle and 
contributing a neutron dose. 

2 Capture gamma rays from vehicle - a gamma ray resulting from 
a neutron entering the vehicle and contributing a secondary 
gamma-ray dose. 

3 Capture gamma rays from ground - a gamma ray resulting from 
a neutron entering the ground without passing through the 
vehicle and generating a secondary gamma-ray dose from a 
ground interaction. (This dose is already included in the 
upward-directed gamma rays that enter the vehicle. This 
generally is negligible.) 

4 Direct gamma rays - a gamma ray entering the vehicle and 
contributing a gamma-ray dose. This source of gamma rays 
includes both gamma rays originating from the source, and 
capture gamma rays from the air. 

5 Total gamma-ray dose - Sum of detectors 2, 3, and 4. 

6 Gamma-ray dose from gamma rays entering the vehicle (usually 
dominated by direct gamma rays) - Sum of detectors 3 and 4. 

7 Neutron and gamma-ray dose from neutrons incident on the 
vehicle - Sum of detectors 1 and 2. 
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Table 7-2. Definitions of Parameters and 
Protection Factors used to Characterize 
the Effectiveness of Shields. 


Parameter 

Response Definition 

FFN 

Free-Field Neutron Response 

FFG 

Free-Field Gamma Response 

NPF 

Neutron Protection Factor 

NPF = FFN / Det. 7 

GPF 

Gamma Protection Factor 

GPF = FFG /Det. 6 

TPF 

Total Protection Factor 

TPF •= (FFN+FFG)/(Det. 7 + Det. 6) 

NRF 

Neutron Reduction Factor 

NRF - FFN /Det. 1 

GRF 

Gamma Reduction Factor 

GRF = FFG /Det. 5 

TRF 

Total Reduction Factor 

TRF = (FFN+FFG)/(Det. 1 + Det. 5) 


7.2 DRC INPUT REQUIREMENTS 

The following input cards are required to execute DRC. Default values 
are in brackets ([]). 


Card A Job Title Card [18A4] 

TITLE 72 alphanumeric character description 
Card B Job control parameters [Begin array with "**"] 

RAD radius of position of vehicle 

AZERO z-position of the MORSE coordinate origin in the DORT 
coordinate system. Equivalent to ZDORT (Ground-Air 
interface) minus ZMORSE (Ground-Air Interface) 

ZBOT lowest z position in MORSE where particles may leak 
from system 
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ZTOP highest z position in MORSE where particles may leak 
from system 

ALPHA rotation of vehicle x-axis counterclockwise from 
DORT r-axis 


HGT detector z coordinate in MORSE coordinate system 

IPRT print control output flag 

= 0 implies print vehicle doses and fluences 
= 1 implies print free field doses and fluences 

- 2 implies print both vehicle and free field doses 

and fluences 

WATMX maximum weight allowed on MORSE leakage tape 

Card C (ICA(I),I=1,NMTG) [Begin array with "$$"] 

ICA Integer array giving correspondence between group 
structures in VISTA and MORSE. 0 < ICA < NOG. 

Card D NNEUT, NGAM [Begin array with "$$"] 

NNEUT group number of lowest neutron energy group in VISTA 

NGAM group number of lowest gamma energy group in VISTA 

Card E (VE(I),I=l,N0G+2) [Begin array with "**"] 

VE VISTA energy group boundaries in descending 

magnitude, i.e., neutron energies including bottom 
energy of lowest neutron group followed by gamma 
energies including bottom energy of lowest gamma 
group 


NOTE: Input Cards C, D, and E are optional. They are 
required only if the VISTA and MORSE energy group 
structures do not coincide. 


Card F alphanumeric title information [20A4] 

Card G title or units for total responses 
for all detectors [20A4] 

Card H title or units for each total response [20A4] 

Card I (RESP(I),I=1,NMTG) [Begin array with "**"] 

RESP response function values in order of 
decreasing energy [20A4] 

Card J units for energy dependent fluence [20A4] 
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7.3 DRC INPUT DATA NOTES 


Except for the title cards, all data are read using the MORSE FIDO input 
system. A detailed description of the FIDO input system (in general) is 
given in Appendix A. In MORSE FIDO, the array indicators "**" or "$$" 
must be entered in columns 2 and 3. In MORSE FIDO, data arrays are 
still entered in blocks, but the blocks are not terminated by a "T". 
Unused data arrays are not entered and careful attention must be paid to 
the order of each array, the size of each array, and the requirements 
for entering (or not entering the array). 

Multiple cases can be executed for different vehicle orientations (input 
parameter ALPHA on Card B) by stacking pairs of Cards A and B for each 
additional vehicle orientation after the first case. The Cards C 
through J need not be repeated after the first case. If this option is 
chosen, it is suggested the user set IPRT=0 to eliminate multiple 
printouts of the free-field information. 

RAD The radius corresponding to the position of the vehicle must match 
the radius (or one of the radii) on the VISTA fluence tape. An error 
message will be printed if this condition is not met. 

AZERO This parameter allows for the case when the air-ground interface 
in the DORT calculation does not match the air-ground interface in the 
MORSE calculation. Typically, the DORT calculation will place the air- 
ground interface at z-0. The vehicle geometries analyzed, typically 
place the turret-track interface at z-0 and the air-ground interface at 
some value less than zero. Consequently, the user can make the two air- 
ground interfaces match through the parameter AZERO. 

ZBOT and ZTOP These two parameters must be within the VISTA axial 
boundaries read by DRC. The ZBOT and ZTOP boundaries represent the 
minimum and maximum values a leaking particle from the adjoint MORSE 
calculation will have. To fold these particles with the forward DORT 
fluences, the DORT axial mesh must encompass the MORSE axial mesh. In 
other words, the maximum z boundary written on the VISTA file must be 
greater than ZTOP and the minimum z boundary on the VISTA file must be 
less than ZBOT. 

ALPHA This parameter allows for different vehicle (or target) 
orientations relative to the source. The parameter is given in units of 
degrees and is specified for the rotation of the MORSE positive x-axis 
counterclockwise (as viewed from above) from the DORT positive r-axis. 
For example, a typical vehicle geometry in MORSE has the positive x-axis 
facing forward on the vehicle i.e., in the direction of the gun barrel 
for a tank. If the user wished to determine the protection factor for 
the tank facing the source, ALPHA would have to be set to 180, the 
degrees rotation of the positive x-axis in MORSE with the positive r- 
axis in DORT. A value of 0 for ALPHA would orient the tank with the 
rear facing the source. Care must be taken when determining the target 
rotation. 
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H6T This parameter must correspond to the detector z position specified 
on Card D in the MORSE input. 

IPRT This parameter controls the amount of print from a DRC case. If 
IPRT-0, only information on the vehicle fluences and doses are printed. 
This is the recommended option for additional stacked cases for more 
target orientations. If IPRT-1, only the free field fluences and doses 
are printed. For single DRC cases, IPRT-2 is recommended because the 
user will obtain both free-field and target fluence and dose 
information. 

WATMX This parameter was used to set the maximum weight allowed for an 
adjoint leaking particle. With the use of in-group biasing, this 
parameter is obsolete and a value of zero will set the default value of 
50. 


Cards C, D, and E These cards are input if the VISTA and MORSE energy 
group structures do not coincide. This option is only valid for cases 
where the VISTA energy group structure is a subset of the MORSE energy 
group structure. This option was included in DRC to allow for coupling 
of new MORSE adjoint leakage tapes in 69 energy groups (46n-237) and old 
DORT free-field fluence files in 58 energy groups (37n-2l7). Coupling 
of arbitrary group structures in DRC is not operational. ICA(I)«0 when 
there is no corresponding data in VISTA for 2 cases: (1) When the MORSE 
group structure has energy bins below the bottom group of VISTA or (2) 
when the MORSE structure has one or more energy bins at higher energy 
than VISTA. For example, if VISTA's highest energy bin is from 14 to 12 
MeV and MORSE'S is from 20 to 14 MeV, ICA(1)«0. If VISTA has data down 
to 1 MeV and MORSE to 0.1 MeV, then the ICA of any groups below 1 MeV is 
0 . 

RESP The response function is entered in order of decreasing energy and 
with the neutron response preceding the gamma-ray response. 


7.3.1 Common Block Information 

The input information for DRC is processed into several common block 
areas for use throughout the code. The common block structure was 
revised for the current version of DRC resulting in fewer commons with 
more variables in each. The three main commons used in DRC are BLANK 
COMMON, common TDT1, and common IDRC. The variables and structures of 
these three common blocks are defined in Tables 7-3, 7-4, and 7-5. 


7.4 DRC INPUT FILE FORMATS 

As stated earlier, DRC's primary function is to couple the MORSE Monte 
Carlo adjoint leakage information with the DORT free-field fluences to 
compute the estimates of the fluences and doses within the vehicle 
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Table 7-3. Location of DRC arrays in BLANK COMMON. 


Mnemonic Location in Array 

name BLANK COMMON Purpose 


ENER(IG) 

I * 1 + IG - 1 

VEL(IG) 

I - NMTG + IG - 1 

FS(IG) 

I - 2*NMTG + IG - 1 

BFS(IG) 

I - 3*NMTG + IG - 1 

DELE(IG) 

I - 4*NMTG + IG - 1 

ILEAK(NB) 

I - LOCLK + NB - 1 

ASORC(NB) 

I - LOCASC + NB - 1 

BUF(IPOS) 

I ■= LOCBUF + IPOS - 1 

IVAL(IF) 

I * IVL + IF - 1 

DWT(IANG) 

I - IWT + IANG - 1 

AMU(IANG) 

1 - IMU + IANG - 1 

ETA(IANG) 

I * IET + IANG - 1 

R( IN) 

I - IR + IN - 1 

Z(IN) 

I - IZ + IN - 1 

A(IA) 

I - IROT + IA - 1 

FDOS(IG) 

I - IFD + IG - 1 

DELU(IG) 

I - IDU + IG - 1 

ICA(IG) 

I - ICE + IG - 1 

VE(IGG) 

I - INV + IGG - 1 

DELVE(IGG) 

I - INV + IGG - 1 


Upper limit of MORSE energy group 
IG in eV 

Velocity of MORSE energy group IG 

Unnormalized fraction of source 

particles in MORSE energy group IG 

Relative importance of MORSE 

energy group IG 

Bin width of energy bin IG 

Number of particles leaking from 

system in batch NB of MORSE run 

Total source weight for batch NB 

Temporary storage for MORSE 

collision tape data 

Index of radial fluence for 

fluence point IF 

Weight for direction IANG from 

VISTA quadrature 

Azimuthal angle corresponding to 
direction IANG 
Polar angle corresponding to 
direction IANG 

Radial mesh point corresponding to 
radial bin IN 

Axial mesh point corresponding to 
height bin IN 

3x3 rotation matrix for rotating 
the vehicle 

Free-field dose for group IG 
Logarithm of upper energy 
bound/lower energy bound for 
group IG 

Correspondence of energy group 
numbers in VISTA with those 
in MORSE 

VISTA energy group boundaries 
followed by NNEUT (number of 
neutron groups) and NGAM 
(number of gamma groups) 

Delta E for VISTA energy group 
boundaries 
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Table 7-4. Definitions of variables in TDT1 COMMON. 


Variable 


Definition 


NANG Number of directions in quadrature from VISTA file 

NRADI Number of radii from VISTA file 

NAXI Number of axii from VISTA file 

NOG Number of energy groups from VISTA file 

N0GP1 NOG + 1 

NDWN Number of downward directions from VISTA 
NJFLX Number of axial fluences on VISTA file 
NIFLX Number of radial fluences on VISTA file 
JSTRT Index of first J fluence 
JLST Index of last J fluence 
IWT Location of weights from VISTA quadrature 

IMU Location of mu's (azimuthal cosines) from VISTA quadrature 

IET Location of eta's (polar cosines) from VISTA quadrature 

IR Location of radii from VISTA file 

IZ Location of Z or axial points from VISTA file 

IROT Location of rotation matrix A 

NETADN Number of downward eta bins 
NLPTR Number of entries in PTR array 
LDETA Location of DETA array in blank common 
LDDETA Location of DDETA array in blank common 
LDPSI Location of DPSI array in blank common 
LDDPSI Location of DDPSI array in blank common 
LPTR Location of PTR array which contains polar angle eta and 
its associated azimuthal angles (NANG + NDETA values) 

LLOC Location of ILOC array which contains pointers to the 

eta's in the PTR array (NDETA values) 

NZBOT Index of bottom coupling surface ZBOT in array of VISTA 

axial boundaries 

NZTOP Index of top coupling surface ZTOP in array of VISTA axial 
boundaries 

NZPTS Number of axial points being processed 

NRAD Index of detector radius in array of VISTA radii 

IFLX Location of VISTA fluences in blank common (NZPTS*NMTG*NANG) 

NDETA Number of polar angles (eta's) 

NDPSI Number of non-zero quadrature weights 

ILST Last used location in blank common - i.e., size required 

for blank common 

IFD Location of FDOS array in blank common 

IDU Location of DELU array in blank common 

ICE Location of ICA array in blank common 

IDIF Signal indicating whether the number of VISTA and MORSE 

energy boundaries are the same (0), or MORSE has more (1), 
or VISTA has more (2) 
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Table 7-5. Definition of variables in IDRC COMMON. 


Variable Definition 

LEAK Leakage value for current batch from MORSE 

IBUFSZ The size of the buffer for the collision parameters 
(Set at 1000) 

NGPQTT Not used 

MAXSZ Size of blank common (100000) 

NMCTP Logical unit number of MORSE collision tape 

NSTAP Logical unit number of VISTA fluence file 

NIN Logical unit number of standard input unit 

NOU Logical unit number of standard output unit 

IPRT Signal to print detector output only (0), free-field 

only (1), both of the above plus protection factors 
and energy-dependent arrays (2). 

IRC Counter for record number 

NBTCH Counter for batch number currently being processed 

HGT Height in cm for free-field dose - usually equivalent 

to the detector height in the MORSE adjoint run 

TNDOS Free-field neutron dose 

TGDOS Free-field gamma dose 

WATMX Maximum weight accepted for processing 

L0CLK Location in blank common of I LEAK array from MORSE 

collision tape 

LOCASC Location in blank common of AS0RC array from MORSE 
collision tape 

LOCBUF Location in blank common of buffer array for collision 
parameters from MORSE 

TITLM(18) Alphanumeric title from MORSE collision tape 


LOCDE 


Location of DELE array, the delta energy for MORSE 
energy groups 









interior. Furthermore, DRC utilizes the free-field fluences and 
estimates from the in-vehicle fluences (and doses) to calculate neutron 
protection factors and reduction factors for the vehicle. 


To accomplish its primary function, DRC reads a VISTA formatted file to 
obtain the DORT free field fluence data, and a MORSE adjoint leakage 
tape to obtain the parameters necessary for it to estimate the fluences 
and doses within the vehicle interior. The format of the VISTA input 
source file is as follows: 


Record 1: TITLE, TDOT - 144 Alphanumeric Characters 

Record 2: 

MM - Number of quadrature directions 

IM - Number of radial intervals 

JM - Number of axial intervals 

IGM - Number of energy groups 

IGP - Number of energy groups plus 1 

MMDN - Number of directions downward 

NJP - Number of axial fluences 

ISH - Height of source point 

ISHA - Cosine of source angle (with Z-axis) 

NIP - Number of radial fluences 

JPL - Index of first J interval on file 

JPU - Index of last J interval on file 
11 additional VISTA input values not used in MASH 

Record 3: IVAL - Array of radial interval numbers being output 

Record 4: [MM values per array; 3*MM total values] 

WT - Weights from DORT quadrature 

AMU - Mu's from DORT quadrature 

ETA - Eta's from DORT quadrature 

Record 5; [NIP + NJP values] 

R - Midpoints of radial bins 

Z - Midpoints of axial bins 

Record 6 to END: [NANG*NJFLX values per record] 

[IGM records per radius, and NIFLX radii] 

FLUX - Directional fluences 
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Because of the large amount of core storage required for the VISTA free- 
field fluences, the forward-adjoint coupling could not be accomplished 
as the Monte Carlo calculation was performed. The coupling involved the 
calculation of the integral 


R = f *(P)$ m (P)(Q ■ n)dP 


over the coupling surface S. 
We define 


$(P) “ VISTA free-field fluences in phase space P. 

$*(P) * MORSE adjoint fluence in phase space P. 

On ■ cosine of angle between particle direction and inward normal. 


The adjoint fluence at the r s , the position of the surface $, was 
written on a leakage tape along with other variables necessary for 
coupling the MORSE results with the VISTA results. The variables 
written on tape for each adjoint leakage were as follows: 


1. IG - the group number, 

2. IGS - the source group, 

3. WTBC - the weight of the adjoint particle at leakage, 

4. U - X direction cosine, 

5. V - Y direction cosine, 

6. W - Z direction cosine, 

7. Z - height of leakage point, 

8. IOET - detector type in which particle is to be scored. 


An output buffer was blocked to transfer the data from core to tape 
efficiently at the end of each batch. This permitted batch statistics 
to be calculated in the DRC code which reads the MORSE leakage tape and 
the VISTA fluence tape and performs the coupling. The leakage tape 
generated by MORSE contains the following data: 
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Record 1 
Record 2 
Record 3 

Record 4 

Record 5 
Record 6 


Title and date of HORSE run 

Initial Data Record - 24 words 

Energy Group Structure, Velocities, Source Spectra 

and Biasing Function - 4*NMTG words 

Array of Number of Particles Leaking Per Batch - 

NITS+1 words 

Array of Source Weights Per Batch - NITS+1 Words 
A Block of Leakage Information for 125 Adjoint Particles - 
1000 words 


Record N - 


A detailed description of the contents of the above records is 
given below: 

I. Record 1 - A 40 character title plus a 32 character date of run 

II. Record 2 - The USER labeled common (plus parameter INGB) is 
written in Record 2. The total number of groups, 
number of batches, etc., are contained in this record, 
as defined in Table 7-6. 

III. Record 3 - The multigroup energy structure and group velocities 
are contained in Record 3. The data are: 

E(l) - Upper energy limit of Group 1. 


E(NMTG) - Upper energy limit of Group NMTG. 
VEL(l) - Velocity of Group 1. 


VEL(NMTG) - Velocity of Group NMTG. 

F(1) - Fraction of Source in Group 1 


F(NMTG) - Fraction of Source in Group NMTG 
B(l) - Biased Fraction in Group 1 


B(NMTG) - Biased Fraction of Source in Group NMTG 
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IV. Record 4 - The number of particles that leak per batch are given 
in Record 4. This data is necessary in order to 
normalize the batch results per source neutron. 

L(l) - Number of leakage particles in batch 1. 


L(NITS) - Number of leakage particles in batch NITS. 


L(NITS+1) - Total number of leakage records written on tape. 

V. Record 5 - The sum of the source weights of the particles in a 
batch. 


ASORC(l) - Sum of weights of source particles in batch 1. 
ASORC(NITS) - Sum of weights of source particles in batch NITS 


VI. Record 6 - The adjoint leakage fluence blocked in groups of 125 
particles. 


B(l) 
B(2) 
B (3) 
B(4) 
B( 5) 
B (6) 
B(7) 
B (8) 


IG Energy Group 
IGS Source Group 
WTBC Weight at leakage 
U —| direction 

V — cosines 
W — 1 at leakage 

Z Height at leakage 
IDET Detector Type 


f— Particle 1 


— Particle 2 


B(1000) - IDET Detector Type 

VII. Additional records in the format of Record 6 to a total of 
L(NITS+1) leakage records. 
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Table 7-6. Definitions of Variables in USER COMMON. 


Number 

Variable 

Definition 

1 

AGSTRT 

Initial chronological age to be assigned to source 
particles 

2 

WTSTRT 

Initial weight to be assigned to source particles 

3 

XSTRT 

Initial x position to be assigned to source 
particles 

4 

YSTRT 

Initial y position to be assigned to source 
particles 

5 

ZSTRT 

Initial x position to be assigned to source 
particles 

6 

DFF 

Normalization for adjoint problems 

7 

EBOTN 

Lower energy boundary (eV) of last neutron group 
(group NMGP) 

8 

EBOTG 

Lower energy boundary (eV) of last gamma-ray group 
(group NMTG) 

9 

TCUT 

Chronological age limit 

10 

10 

Logical unit for output 

11 

11 

Logical unit for input 

12 

IADJM 

Adjoint switch (> 0 for adjoint problem) 

13 

NGPQT1 

Problem-dependent energy group limit 

14 

NGPQT2 

Problem-dependent energy group limit 

15 

NGPQT3 

Problem-dependent energy group limit 

16 

NGPQTG 

Group number of lowest energy gamma-ray group 
to be treated 

17 

NGPQTN 

Group number of lowest energy neutron group to 
be treated 

18 

NITS 

Number of batches to be run 

19 

NLAST 

Last cell in BLANK COMMON used by random walk 
package 

20 

NLEFT 

Number of cells in BLANK COMMON available to user 

21 

NMGP 

Number of primary energy groups 

22 

NMTG 

Total number of energy groups 

23 

NSTRT 

Number of source particles for each batch 


7.5 DRC OUTPUT FILES 

DRC only produces a printed output file. 


7.6 LOGICAL UNIT REQUIREMENTS 

Below is a listing of the files required to execute a DRC case along 
with the default values used in the code. In setting up a DRC case, 
efforts must be made for these units to be available. 
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1. Logical Unit NSTAP - VISTA Angular Fluence File [Default-15] 

2. Logical Unit NMCPT - MORSE Adjoint Leakage File [Default-24] 

3. Logical Unit NOU - Printed Output [Defaults] 

4. Logical Unit NIN - Card Input [Default-5] 
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7.8 SAMPLE PROBLEM 

A complete listing of the input cards for the sample problem is given in 
Figure 7-1, and some selected output is shown in Figure 7-2. The sample 
problem demonstrates the processing of the VISTA fluence file for the 
air-over-ground free-field environment at 400 meters from the source and 
the MORSE adjoint calculation of the two-meter box experiments at 400 
meters. 7,8 In viewing Figure 7-1, the input illustrates; a radius of 


7-19 








400 meters (RAD-40000.0 cm), the DORT and MORSE air-ground interfaces 
were equivalent (AZERO-O.O), and a zero degree rotation of the box 
(ALPHA-0.0). The minimum (ZBOT) and maximum (ZTOP) z boundaries in the 
MORSE geometry were -15.0 cm and 900.0 cm, respectively, and the 
detector height in the MORSE adjoint calculation was 110.16 cm. The 
print control flag (IPRT) was set to 2 to obtain both free-field and in- 
vehicle fluence and dose data, and the maximum weight allowed would 
default to the value pre-set in the code (WATMX-0). The VISTA and MORSE 
group structures were equivalent, so consequently, Cards C, D, and E 
were omitted from the input. The next three title cards are for Cards 
F, G, and H. The response function utilized in the DRC analysis is the 
free-in-air tissue kerma response in units of gycmVn,?. The last card 
is the input for Card J. This particular input deck did not exercise 
the option of stacking cases for different target orientations. Notice 
that the "**" values are in columns 2 and 3 . DRC will not correctly 
identify the input if these FIDO control parameters are not in the 
proper columns. 

The selected DRC output shown in Figure 7-2 first illustrates the input 
parameters read from Cards A and B, the rotation matrix for the 
parameter alpha, and a series of titles identifying the MORSE 
calculation, the VISTA calculation file, and the DORT calculation used 
to create the input files for this DRC case. The titles are followed by 
parameters relevant to the VISTA fluence file including some control 
parameters, the specific quadrature information, and radial and axial 
mesh points on the VISTA file. The output then contains some arrays 
used internal to DRC that may not be useful to the user, followed by an 
indication of the storage used in the DRC case. A title from the MORSE 
adjoint history file is then printed indicating whether the in-group 
biasing option in MORSE was invoked. The MORSE input source spectrum 
and bias function are then printed indicating the source sampling 
utilized in the adjoint calculation. Next, the output lists the 
response function title, the values of the response function to be 
folded with the free-field and in-vehicle fluences, and arrays relevant 
to the energy bins used in the DRC case. Much of this last set of 
output is similar to the output of the SAMBO routines in MORSE since DRC 
contains a modified version of SAMBO. 

The next output is the results of the calculations in subroutine FRED0S 
and represents the GRTUNCL/D0RT free field fluence and dose at the 
detector location in the MORSE geometry. Both the spectra and integral 
totals are printed. This output is then followed by the DRC detector 
responses (Table 7-1) along with their fractional standard deviations 
and protection factors and reduction factors (Table 7-2) for the 
response function given in the input (Card I). These values are what 
the entire MASH analysis is geared to determine. Finally, the DRC 
output gives the energy dependent fluence and dose arrays for the first 
six detector types listed in Table 7-1 along with the normalized total 
neutron and photon fluence and dose arrays. The format of these arrays 
is quite cumbersome, however, useful information can be obtained from 
them. Future efforts will hopefully improve these output arrays into a 
more useful format. 
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2m box exp/4in steel/dabl 46n-23g lib/aprf sh«16.143m/10-24-89(a) air 
** 40000.0 0.0 -15.0 900.0 0.0 110.16 2 0 

46 neutron - 23 gamma flat and free-in-air tissue kerma response input 
-- l«neut 2-veh n-g 3-grd n-g 4«photons 
mash 46n/23g group free-in-air tissue kerma response (gy.cm2/n,g) 

** 

736532-16 704584-16 685894-16 674499-16 661555-16 638136-16 633529-16 
598822-16 57632-15 551514-16 546431-16 512651-16 470858-16 457805-16 
44359-15 419381-16 357307-16 332494-16 321126-16 291193-16 263438-16 
252468-16 222507-16 205934-16 193682-16 179065-16 163746-16 130075-16 
102563-16 806538-17 563405-17 359169-17 25917-16 213032-17 147572-17 
628401-18 219938-18 925902-19 448136-19 20734-18 103718-19 932428-20 
135874-19 228494-19 372646-19 129126-18 401109-16 317559-16 27612-15 
23517-15 205102-16 185083-16 164356-16 143343-16 121273-16 1036-14 
902669-17 755621-17 585321-17 42722-16 296381-17 192968-17 105409-17 
529629-18 348187-18 313231-18 484629-18 10497-16 339599-17 
energy group totals 


Figure 7-1. Sample DRC Input for the 
Two-Meter Box Protection Factor Analysis. 
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Figure 7-2. Sample DRC Output for the Two-Meter Box Protection Factor Analysis 
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Figure 7-2. (continued) 
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Figure 7-2. (continued) 
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Figure 7-2. (continued) 
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Figure 7-2. (continued) 
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Figure 7-2. (continued) 
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Figure 7-2. (continued) 
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Figure 7-2. (continued) 






























































Figure 7-2. (continued) 
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Figure 7-2. (continued) 
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Figure 7-2. (continued) 






igure 7-2. (continued) 













































Figure 7-2. (continued) 
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igure 7-2. (continued) 
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igure 7-2. (continued) 
































7-43 


Figure 7-2. (continued) 
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APPENDIX A 


FIDO INPUT 






FIDO INPUT 


The FIDO input method is especially devised to allow the entering or 
modifying of large data arrays with minimum effort. Special advantage 
is taken of patterns of repetition or symmetry wherever possible. The 
FIDO system was patterned after the input method used with the FLOCO 
coding system at Los Alamos and was first applied by Atomics 
International to the DTF-II 1 code. Since that time, numerous features 
requested by users have been added, a free-field option has been 
developed, and the application of FIDO has spread to innumerable codes. 

The data are entered in units called "arrays." An array comprises a 
group of contiguous storage locations which are to be filled with data 
at one time. These arrays usually correspond on a one-to-one basis with 
FORTRAN arrays used in the program. A group of one or more arrays read 
with a single call to the FIDO package comprises a "block." A special 
delimiter is required to signify the end of each block. Arrays within a 
block may be read in any order with respect to each other, but an array 
belonging to one block must not be shifted to another. The same array 
can be entered repeatedly within the same block. For example, an array 
can be filled with zero using a special option, and then a few scattered 
locations could be changed by reading in a new set of data for that 
array. Some arrays can be omitted if no entries to that array are 
required. If no entries to any of the arrays in a block are required, 
but the condition requiring the block is met, the delimiter alone 
satisfies the input requirement. Three major types of input are 
available: free-field input, fixed-field input, and user-field input. 
Each field includes up to three subfields. Each array is identified by 
an "array originator field” having two subfields: 

Subfield 1: An integer array identifier signals the identity 

of the array to follow. 

Subfield 2: An array type indicator , used as follows: 

*$$" free-field integer array 
"**" free-field real array 

fixed-field integer array 
■*" fixed-field real array 

•U" user-field, format to be read in 

"V" user-field, previous format to be used 

These subfields are written together, without blanks. Data are then 
placed in successive data fields until the required number of entries 
has been accounted for. 

In entering data, it is convenient to think of an "index" or "pointer" 
which is under control of the user, and which specifies the position in 
the array into which the next data entry is to go. The pointer is 
always positioned at the first array location by entering the array 
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originator field. The pointer subsequently moves according to the data 
operator chosen. 

Free-field input allows an arbitrary number of fields to be entered in 
columns 1-72, with fields separated by one or more blanks. A field must 
begin and end in the same record. In general, a data field has up to 
three fields: 


Subfield 1: The data numerator , N,, an integer. 

Subfield 2: The data operator, N 2 , a character. 

Subfield 3: The data entry, N 3 , an integer or real number. 

If subfields 1 and 2 are both used in a field, they must not be 
separated by blanks. Blanks may precede subfield 3, however. All 
entries following a ■/" in a given record are ignored. 

Single data entries use only N 3 , which may be entered with or without a 
decimal point. The type (integer/real) will be determined by the 
previous array identifier: 

1$$ 123 /enter integers 1,2,3 

2** 1. 1.1 2 /enter reals 1.0,1.1,2.0 

An exponent field may be added, with or without the "E" identifier. No 
imbedded blanks within the subfield are allowed. The subfield must have 
no more than nine columns, including the decimal but not including the 
exponent field. The pointer is advanced by one for each entry: 


2 ** 

3** 

BUT NOT 3** 
AND NOT 3** 


1.E0 .11+1 200-2 /same entries as above 

1234.5678E-3 /8 columns + decimal 

1.23456789 /too many columns 

0.0E6 /produces wrong results 


Multiple data entries use N 2 and (except the "F" operator) N 1 together 
with N 3 to enter several items with a single field. The type of 
operation is indicated by N 2 . 

"R“ indicates that data entry N 3 is to be repeated N, times. The 
pointer is advanced by N,. 

"I* indicates linear interpolation. The data numerator, N,, indicates 
the number of interpolated points to be supplied. The data entry N 3 is 
entered, followed by N, interpolated entries equally spaced between that 
value and the value in the third subfield of the next field. The next 
field may be a single- or multiple-data entry. The pointer is advanced 
by N, + 1. The field following an "I" entry is then processed normally, 
according to its own data operator. The "I" entry is especially 
valuable for specifying a spatial mesh. In integer arrays, interpolated 
values will be rounded to the nearest integer. 
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■L" indicates logarithmic interpolation. The effect is the same as that 
of "I" except that the resulting data are evenly separated in log-space. 
This is obviously limited to positive real numbers. 

"F" fills the remainder of the array with N 3 . N 1 is not used. For 
example, the following are equivalent ways of filling an 8-entry array: 

2$$ 1 2 3 4 6 6 8 8 

2$$ 211 4 2R6 F8 /same as above 

Sequence data entries allow entries to be patterned after data entered 
by previous fields or previously existing in storage. Fields N,, N 2 , 
and N 3 are used, except that if N, is omitted, it is taken to be one. 

"Q" is used to repeat sequences of numbers without modification. The 
length of the sequence is given by the third subfield, N 3 . The sequence 
of N 3 previous entries is to be repeated N, times. The pointer is 
advanced by N,*N 3 . This feature is especially valuable in specifying 
matrices with repeated or symmetrical columns or rows. 

"G" has the same effect as "Q" except that the sign of each entry of the 
sequence is changed each time it is entered. 

"N" has the same effect as "Q," except that the order of the sequence is 
reversed each time it is entered. 

"M" has the same effect as “Q," except that both the sign and the order 
of the sequence are reversed each time it is entered. 

Options Q, G, and M are valuable in entering directional quadrature 
sets. As examples: 

81** 1 2 3 1Q3 /l,2,3,1,2,3 

82** -3 -2 -1 M3 /-3,-2,-1,1,2,3 

83** 3R-2 G3 /-2,-2,-2,2,2,2 

Zero data entries use subfields N, and N z . 

"Z" sets the next N, entries to zero. The pointer is advanced by N,. As 
an example: 


1$$ 3Z 1 2 /0,0,0,1,2 

Pointer-movement data entries move the pointer without changing the data 
array. Subfields N,, N 3 , or neither may be required. 

"S" indicates that the pointer is to skip forward over N, positions, 
leaving those array positions unchanged. 

"B" moves the pointer backward N, positions. 

"A" moves the pointer to the position N 3 . 
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"E" skips over the remainder of the array. The array length criterion 
is satisfied by an "E," unless too many entries ha'»e been specified. No 
more entries to an array may be given following an "E," except that data 
entry may be restarted with an "A.* 

For example, given the following sequence of entries, comments indicate 
the result of reading an array of length 8: 

1$$ 1 2 3 4 5 6 E /E terminates the array, leaving 

items 7 and 8 unchanged 

1$$ 2 IS 4 A7 7 8 /now we have 2,2,4,4,5,6,7,8 

1$$ 21 1 4 IB F8 /now we have 1,2,3,8,8,8,8,8 

Edit fields control printing within the FIDO subroutines. 

"C" causes the position of the last array item entered to be printed. 
This is the position of the pointer, less 1. The pointer is not moved. 

"0“ causes the print trigger to be turned on. The trigger is originally 
off. When the trigger is on, each card image is listed as it is read. 

"P" causes the print trigger to be turned off. 

"/" occurring in column 1 causes the entire record to be ignored as 
input, but to be printed as a comment in the output stream. 

A block termination field consists of a field having only "T" in the 
second subfield. 

The reading of data to an array is terminated when a new array 
originator field is supplied, or when the block is terminated by a block 
termination field. If an incorrect number of positions has been filled, 
an error edit is given, and a flag is set which will later abort 
execution of the problem. FIDO then continues with the next array if an 
array originator was read. The new array originator need not begin a 
new record. Otherwise, FIDO returns control to the calling program. 

For example: 

1SS 123 2** FO T 

User-field input allows the user to specify the input format. If "IP is 
specified as the array-type indicator, the FORTRAN format to be used 
must be supplied in columns 1-72 of the next record. The format must be 
enclosed by parentheses. The data for the entire array must follow on 
successive records. The rules of ordinary FORTRAN input as to 
exponents, blanks, etc., apply. If the array data do not fill the last 
record, the remainder of the record must be left blank. The user must 
insure that his format specifies the correct type of data, i.e., real or 
integer. 

"V" has the same effect as "U" except that the format read in the last 
preceding "IP array is used. 
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For example, for an array of 4 entries: 


10U 

(612) 

12 3 4 
11V 

4 3 2 1 

would enter integers 1,2,3,4 into the 10th array and 4,3,2,1 into the 
11th. 

Fixed-field input uses 1 to 6 fields per input record, with fixed, 12- 
column fields. It is thoroughly described in the DOT IV document. 2 
Because it has been almost entirely replaced by the free-field format, 
its description is not repeated here. 
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IN-GROUP ENERGY BIASING 


INTRODUCTION 


This appendix describes the in-group energy biasing methodology 1 
developed for the adjoint MORSE* calculation utilized in MASH. In-group 
energy biasing is a methodology developed by W. Scott of SAIC to adjust 
for irregularities observed in adjoint Monte Carlo analyses in thick 
media where the weights of adjoint particles could, in undergoing 
multiple scattering events, become very large. Further development of 
the methodology, discussed herein, suggests that in-group energy bias 
might have more-general use than initially expected. The in-group 
biasing procedure was first implemented in the MIFT2 1 version of the 
VCS 3 ' 4 MORSE code. The in-group biasing procedure has since been 
implemented in the MASH version of the MORSE code. The bulk of this 
appendix was extracted from the MIFT2 document 1 and has been included in 
this manual for completeness. 

In-group energy biasing (or simply in-group biasing or in-group bias) is 
easy to use. Unlike other Monte Carlo biasing methods, in-group biasing 
does not require that the user set up and input, based on his judgment, 
arrays of data to improve the efficiency of the Monte Carlo calculation. 
This means that a person less skilled in adjoint Monte Carlo can often 
successfully use MASH or adjoint MORSE, since use of in-group bias 
requires only the setting of a switch in MASH. Success in the use of 
the other biasing methods generally requires considerable adjoint Monte 
Carlo experience. 

Based on results obtained with the MIFT2 and MASH MORSE codes, in-group 
energy bias appears to generally improve both the answer and the 
statistics of the calculation. Based on theory, it may be expected that 
the largest gains from the use of in-group bias occur for fairly thick 
problems. However, improvements for thinner problems have been seen as 
well. Based on both the theory and the results of sample cases reported 
herein, it might be suggested that in-group bias always be used for 
adjoint Monte Carlo. However, in recognition that users may at times 
prefer not to use in-group bias or may wish to compare results obtained 
with and without the use of in-group bias, the methodology has been 
implemented with a switch so that its use is optional. 

This appendix is divided into 6 subsections. Following this 
introduction section is a background section which traces the short 
history of the development of the in-group biasing methodology. The 


*J. A. Stoddard, S. D. Egbert, and W. D. Scott, Jr., "The Vehicle 
Code System with In-Group Energy Bias and GIFTS Geometry," 
DNA-TR-87-23, Science Applications International Corporation, 
(January 1987). 
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next section gives a theoretical basis for in-group bias, followed by a 
section describing the implementation of the in-group bias methodology 
into the HASH MORSE code. A section which discusses some comparisons of 
the results of analyses performed with and without in-group bias with 
each other and with experimental data, where available, follows. 

Finally, a list of references pertaining to the discussion given in this 
appendix is presented. 


BACKGROUND 


It has long been recognized that for certain problems adjoint MORSE and 
MASH are very inefficient at obtaining adequate statistical variances in 
reasonable run times especially when compared to the efficiency of 
forward MORSE calculations. In a 1979 SAIC study 5 for the BRL it was 
recognized that the problem stemmed from a poorly biased energy random 
walk that occurred in adjoint MORSE whenever the non-absorption 
probability (PNAB) was much greater than 1.0. At that time it was 
suggested that a modified adjoint scattering technique, referred to as 
"in-group energy biasing", would be significantly more efficient. The 
defining feature of in-group energy biasing is that for all but the last 
group, a particle's weight only changes when it scatters to a new group. 
If the particle stays in the same group (in-group scattering), its 
weight does not change. Thus, when an adjoint particle has a non¬ 
absorption probability greater than 1.0, its weight will not increase so 
long as it scatters in the same group. When it finally upscatters to a 
new group, its weight will be increased by a fixed amount that is a 
function only of the cross sections and not of how many times the 
particle scattered in the same group. With standard adjoint MORSE, such 
a particle would have its weight increased by PNAB each time that it 
scattered so that its final weight upon upscatter would depend upon how 
many in-group scatterings that it had. 

In a 1981 study 6 for the Wehrwissenschaftliche Dienststelle der 
Bundeswehr fur ABC-Schutz (WWD) Laboratory in the Federal Republic of 
Germany, SAIC implemented the in-group energy biasing scheme into 
adjoint MORSE and demonstrated an increase in efficiency of factors of 4 
to 5 over standard adjoint MORSE for a 10-cm-thick steel sphere. In 
that study in-group energy biasing was used for all energy groups. 

In a recent effort for the U. S. Army Ballistic Research Laboratory 
(BRL), the in-group bias scheme was implemented in the BRL version of 
VCS, and some comparisons of its efficiency were made for other steel 
and polyethylene configurations. Also, theoretical derivations were 
made which indicated that in-group energy biasing should always be 
preferable to the standard MORSE scattering treatment in either forward 
or adjoint MORSE regardless of the value of the non-absorption 
probability PNAB. 
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In this effort a number of modifications were made to the in-group bias 
coding to improve its efficiency and clarity. More important, some 
additional test cases were run which further demonstrated the advantages 
of using in-group bias. 


THEORETICAL BASIS FOR IN-GROUP ENERGY BIASING 


The theoretical basis for in-group energy biasing is derived by 
comparing the analytic sample variance of the three-group infinite 
medium random walk under a variety of possible biasing schemes. Similar 
conclusions can be reached in two groups with considerably less algebra 
but with less generality. The procedure is to examine the Markov chains 
of all possible combinations and permutations of scatterings in three 
groups and to show that the scattering estimator scores in the random 
walk sum to the theoretical solution. The corresponding sample variance 
is then derived, and comparisons are made between the in-group and 
standard sampling schemes. 

Two very important concepts which are stressed in this paper are the 
"fair game rule" and "particle weightings". The "fair game rule" is 
descriptive of the Monte Carlo treatment of collisions. If a "fair 
game" is played in simulating the collision, forward or adjoint, a valid 
result should be obtained. Particle weightings offer some latitude in 
playing this "fair game", since tradeoff's can be made between 
probabilities and particle worth. 

A historical example is appropriate here. Original Monte Carlo codes 
treated absorption events by halting the random walk for a particle 
whenever sampling indicated that an absorption event had occurred. 

Later it was recognized that it was more efficient to carry a particle 
weight and to treat absorption by reducing the weight by the non¬ 
absorption probability at each scatter. Particle histories were then 
terminated by Russian roulette whenever weights dropped below 
predetermined cutoffs. This non-absorption treatment avoided losing 
important histories just before they were about to score. In this 
example, a "fair game" was played by offsetting the probability of what 
happened at a scattering event with an appropriate change of particle 
weight. This concept of adjusting particle weights, within the fair 
game rule, to improve Monte Carlo statistics is the basis of Monte Carlo 
biasing schemes. More will be said about the fair game rule in the 
infinite medium problem described below. 


Markov Chain Analysis of the Forward Three-Group Infinite Medium Problem 

Consider the total dose deposited in an infinite medium due to a source 
of particles in three energy groups. The source is described by three 
probabilities S t , S?, and S 3 of beginning particles in the three 
groups. When the flux in each group is known, the dose is the inner 
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product with the response function (or flux to dose conversion factor) 
R^ R 2 , and R 3 . The scattering properties of the medium are described 
by total cross sections in each group a „ a 2 , ard a 3 , and the 
downscatter cross section matrix, 


an 0 0 

ai2 <722 0 

an a 2 3 ^33 


where a,j is the cross section for scattering from group i to group j. 
All upscatter cross sections are assumed to be zero. This problem can 
be solved directly without reference to Monte Carlo or Markov chains by 
equating the collision density in each group (the product of the flux 
and the total cross section o ( to the source in group i) from the 
original source S,- plus the scattering source as shown in Equation (1). 


<7101 


5r 


an 0 0 


■01 ' 

a 2 0 2 

= 

s 2 

+ 

<7i 2 a 22 0 


02 

<7303 . 


,5 3 , 


<713 <723 <733 . 


.03, 


Collision Originial 

Density Source 

This equation can be solved directly for the flux in each group, and the 
dose can be obtained by an inner product with the response, 


A ~ Ri & (2) 


so that 

51 

5 2 

5 3 


A = (R u R 2 ,R 3 ) 


- a u u U 

—o\ 2 a 2 — a 22 0 

— <7l3 — aoi ffi — (Ti-t 


( 3 ) 
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The solution of the above equation Is 


RiSj SiR 2 o\ 2 

°\ ~ a n {&i — o\i){<J2 — 022) 

_|_ _ Si R3C13 _ ^ S\R 3 (T 12<^23 

i a i - <Tn)(<T 3 - <733 (cri - a n )(a 2 - a 2 2X^3 - ^33 

_l_ s 2 r 2 _l_ _ S2R3023 _ S3R3 

<?2 - °22 {°2 - 022X03 - 033) 03 - 033 


Notice that the solution for the dose contains seven terms which 
represent the seven possible means of scattering from a source group to 
a response group. The first, fifth, and seventh terms result from 
particles that began and scored in the same group. Each of these 
particles may have had zero to an infinite number of in-group 
scatterings. The second, third and sixth terms are the doses from 
particles that began in one group, had zero to many in-group 
scatterings, had one transition scattering to a new group and finally 
had zero to many in-group scatterings in the final group. The fourth 
term is the dose for particles that began in group one, scattered to 
group two, and then scattered to group three with any number of in-group 
scatterings between. 

This same result can be derived by Monte Carlo theory considering the 
probabilities and weight changes of all possible scatterings. In 
standard forward MORSE the random walk is set up as follows: First, a 
source group is sampled and the particle weight is set to 1.0. The 
collision site (which does not matter in the infinite medium problem) is 
determined by sampling an exponential. The probability of absorption is 
treated by reducing the particle weight (multiplying the previous weight 
by the non-absorption probability). Then the probability of scatter to 
each group is sampled, and the next track proceeds in the new group. At 
each scattering a score Is made equal to the particle weight before the 
collision times the response function divided by the total cross 
section. 

When this score is made for each scatter, it is called a real scattering 
estimator. The non-absorption probability (PNAB in MORSE but called W 
here) is equal to the scattering cross section divided by the total 
cross section. For group one this is 




0n 4- 012 + ai3 _ Oj* 
0 \ 0 \ 


(5) 
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Likewise, the group transfer probability is 


Pi, = 



( 6 ) 


Thus, if a particle starts and continues to scatter in group one, its 
contribution to the dose is 




— £ (>v,/>,.)" = Mi y (sn a.y 

SyRi 1 SiRi 

Oi 1 - -a n 


(7) 


Notice that this term is identical to the first term in Equation (4). 

In a similar manner all combinations of possible sources and scatters 
can be shown to be equivalent to terms of Equation (4). As another 
example, particles that begin in group 1, transition to group 2 and 
finally scatter to group 3 correspond to the fourth term of Equation (4) 
as follows: 


Am = [£( wr > i> n) n J ( W t Pn) n \ W 2 P 23 |^(iy 3 P 3 3) n 

_ _ 5] R 2 0\ 2 <7 22 _ 

(<Ti - <r n ) (er 2 - o 22 ) (<7 3 - <7 33 ) 


(8) 


Thus, as expected, the Markov chain analysis of the MORSE random walk 
for three groups agrees identically with the analytic three-group 
solution given in Equation (4). 

In addition to deriving the dose, the three-group problem can be 
analyzed for the sample variance of real scattering estimator procedure. 
The sample variance V is derived by summing the squares of all scores 
times the probability of making each score. Thus, the sample variance 
of particles that begin in group one and score in group one, as in 
Equation (7) for the standard MORSE scattering scheme, is 
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(9) 


Si i2] / a i» a iA SiRi 

11 “ £ U^iJ ' a? (l - 

= 5i Jg 

<7? -<7n<7la 


Notice that all factors that represent either scores or particle weights 
are squared while factors representing probabilities are not squared. 

In this manner all seven terms of the forward HORSE sample variance may 
be written: 


Vi, 


V , 3 

V 12 3 


V n 


V33 


SiRj = SiR\o u oi 3 

(<?1 - On<7ls)(<r2 - °2202s) 

__ 

(<r? - <Tn<Ti,)(a| - <7 3 3<73 4 ) 

_ S\R\°l2Ol302ZO2s _ 

(a] - auO X 9 ){o\ - a 22 a 2a ){al - aj 3 ) 

S 2 R\ y _ _ S 2 R\(J 2 zQ 2s 

a\ - a 22 a 2s 23 (<r| - a 22 o 2 s ){a f - <r| 3 ) 

SzR] 

nl - nl. 


( 10 ) 


All terms have the same form for each combination of transitions, and 
the denominator terms of a, 2 - <7 n <7 it appear in each case. In group 3 it 
reduces to a a - <7*33 because the scattering cross section is equivalent 
to the in-group cross section. Sometimes in forward MORSE the 
scattering cross section is greater than the total cross section. This 
can occur when multiplicity is included as a pseudo-scattering process 
such as with (n,2n) reactions or in gamma ray pair production. If the 
scattering cross section is sufficiently larger than the total cross 
section so that <7 f 2 - is near-zero, these terms of the variance 

become large and the calculation may not converge. When this occurs, 
longer run times may fail to improve MORSE statistics. Also, answers 
may vary widely, with results for cases with the best statistics tending 
to be deceivingly low. 
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It is important to note that the non-absorption probability and group 
transfer probabilities in the problem solution, A, always occur in 
product form, i.e., W^j. This suggests that the particle weights and 
transfer probabilities can each be adjusted in biasing schemes provided 
that the product remains unchanged. Since the answer a depends only on 
the product, the answer will not be changed. The variance, however, is 
dependent on the separate and P ( j terms; thus there is a potential in 

biasing to improve che variance. 

Biasing in forward Monte Carlo calculations by modification of the W, 
and Pjj terms, while retaining a constant product, is a powerful tool in 
improving Monte Carlo statistics, but that is not the only use of the 
concept. As will be seen, the concept carries over into adjoint random 
walks. First the product sufficiency, which is one part of the "fair 
game" rule, justifies the current treatment of group transfers in 
adjoint Monte Carlo simulations. Second, it can be used for biasing 
adjoint Monte Carlo analyses as well as forward calculations. 


Adjoint Three-Group Analysis 

An especially interesting feature of the MORSE Monte Carlo code is that 
the same scattering routines are used to track both forward and adjoint 
particles by using the transpose of the scattering cross section matrix 
for adjoint transport. In the adjoint, the non-absorption factor (PNAB) 
involves a sum of the scattering cross sections for those groups from 
which scattering could have come. In MORSE, the adjoint energy group 
indexes are reversed so that the highest energy particles have the 
highest group numbers. However, the same forward cross section notation 
is kept here to facilitate comparison with the forward walk. Keeping 
the same forward cross section group number notation, the adjoint 
scattering cross section for group three becomes 


— 033 + 023 + 013 


( 11 ) 


Since o 23 and o 13 are not a part of the group three total cross section 
ct 3 , this adjoint scattering sum can be much different from the total 
cross section. For broad neutron groups in the inelastic level regime 
where there cam be many higher energy groups that scatter into it, the 
adjoint scattering sum can be much greater than the total cross section 
The adjoint non-absorption factor and tne scattering probabilities then 
become 


£0.7 
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and 


E 


(13) 


where the asterisk indicates the adjoint summation of the scattering 
cross section rather than the forward summation. Note that unlike the 
forward scattering cross section, the adjoint scattering cross section 
is not a physical quantity. In fact it depends more upon the energy 
group structure than the physical scattering process. 

Clearly there is no direct physical basis, as with forward Monte Carlo 
Equations (5) and (6), for using the above weight changes and transfer 
probabilities for adjoint Monte Carlo. However, the product of the 
WjPjj in Equations (12) and (13) is equivalent to that for the forward, 
and the adjoint random walk gets the same answer as the forward walk. 

In this case, the a iS has no physical meaning, but it has the 
advantages of giving transfer probabilities P, : j which automatically sum 
to 1.0 and of following the adjoint calculation format in which the 
transpose of the cross section matrix is used. However, as will be seen 
below, the non-physical nature of the adjoint scattering cross section 
(Equation 11) can cause accuracy problems in adjoint Monte Carlo. 

Consider the three-group infinite medium Markov chain. As mentioned 
above, the adjoint random walk will get the same dose as the forward 
walk. However, the sample variance of the standard MORSE adjoint walk, 
although similar in form to the forward sample variance, is quite 
different. When the particle weights are squared and the probabilities 
are not squared, the non-physical adjoint scattering cross section a* j S 
does not cancel 


W* P t] = 



(14) 


and the seven terms of the standard 


adjoint sample variance become 
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Vii = 
V21 = 

\ : Z2 = 


V321 = 


RiSi „ R 2 Sl 

2 - t k 22 = —9 -r 

*1 - *n *2 ~ *22*2* 

#2$? *12*23 1/ 

(*2 “ *22*2, )(*? - *11) 

_ ^3^2*23 * 3 j _ 

(*3 - <T 3 3*3j)(*2 “ *22*2*) 

_ ^3^1*23*3**12*2* _ 

(*3 “ *33* 3s )(*2 “ *22*2a)(*l “ *11) 


RzSl 

~ *33*3 a 


_ •ft3-Sf*13* 33 _ 

(*| ~ *33*3 a )(*] ~ *?1 ) 


(1 


The form of these terms is very similar to the forward sample variance 
in Equation (10) including terms like a ( 2 - o^o* j 6 in the denominators. 
Because of the physical nature of the forward scattering cross section, 
the forward HORSE random walk is nearly always well behaved. However, 
since the adjoint scattering cross section a )t is often much greater 
than the total cross section a it these terms can prevent the random walk 
from converging. In fact in the DLC-31 Data Library Collection 7 , 
adjoint iron cross sections have four groups (all in the vicinity of 1 
MeV neutrons) where 


Thus, infinite medium adjoint random walk for the iron with the DLC-31 
cross sections will not converge. More generally, this occurs in 
adjoint MORSE whenever 


P tt PNABt > 1.0 


( 17 ) 


It is perhaps fortunate that the seriousness of this problem is not 
always observed. For realistic problems not involving deep penetration 
in thick media, reasonable answers are usually obtained, although with 
reduced efficiency. 


In-Group Energy Bias Analysis 

The major objective of the in-group biasing scheme is to eliminate the 
instability in the variance for random walks, i.e., to eliminate the <7, 2 
- *u**is terms which could be zero or negative for physically realistic 
cross section sets. Although not obvious from the foregoing, this is 
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equivalent to eliminating the problem in which the weight of an adjoint 
particle can grow unbounded by many repeated in-group scatterings. 

The approach is to utilize the fair game constraint in which the product 
WjPjj is forced to remain constant while adjustments to certain Wj are 
made. Specifically, as mentioned in the background section, the weight 
of a particle undergoing in-group scattering is forced to remain 
unchanged. This "starting condition", along with the constant W,Pjj 
"fair game rule" and a couple of other physical requirements form a 
recursion-relation-like formulation which redefines all the W { and P^. 
The result is the in-group bias formulation, the derivation and analysis 
of which are described below. 

In the standard (not in-group biased) formulation, the weight change W s 
was always equal to PNAB for group i. For in-group bias, this parameter 
is generalized to also have j dependence. Thus the fair game product 
rule becomes, utilizing Equations (12) and (13) (for the standard 
adjoint MORSE), 

PijWii = (18) 


For in-group scattering for groups other than group 1, it was specified 
that there would be no weight change (W - 1); hence from Equation (18), 


W }J = 1.0 and Pjj = -f- 


(19) 


for in-group scattering other than group 1. An exception is made for 
group 1, which, being the highest energy group, has no outscattering so 
that P n must be 1.0. Thus from Equation (18) for group 1, 

P n = 1.0 and W u = — (20) 


The above expressions specify the P and W for in-group scattering. The 
out-of-group scattering P,j and W,j are specified by the physical 
requirement that the scattering probabilities must sum to 1.0 and by the 
desirability of having the other transfer probabilities be proportional 
to j. The result is 


• / h Pij 


H&i-ZSuL and W„ = ^ - "M 


( 21 ) 
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Thus, in three groups the adjoint In-group scattering and weight factors 
are specified as 


la 

*3 


0 0 


g?3(g 3 ~ga») 
°»(o JS+ffis) 


£22 

*3 


0 


g n(ga-gaa) a,—a 

<, 3(®2S+^I3) <7j 


( 22 ) 


and 


1 0 


g 23-t- g ia 

*3—033 


1 


0 ' 
0 


g33 + gia *13 * 1 1 

^3—^33 *3 — *33 *1 


(23) 


From the probability and weight table the total dose can be derived just 
as in the standard adjoint case. As expected because the product of 
weight and probability is the same for both in-group and standard MORSE, 
the dose is the same (Equation 4). But the weight squared times the 
probability is different, making the in-group biased sample variance 
terms, given below, very different from the standard adjoint sample 
variance of Equation (15). 


V„ 


V 2 , 

T 321 


fllS? y = Mi 

~ a ll 22 a 2 ~ ^ 22^2 

(02 - 07iY{o] - a] 1) 

R 3 S 2 023(023 + 013 ) 

(*3 ~ 033 ) 2 ( 0 % - <722^2) 

R -3 S 2 023(023 + ^13)^12 
(03 ~ 033) 2 (07 ~ 022) 2 (0 2 ~ 0 2 U ) 


V3, 


V33 


R3S 2 

03 ~ 03303 


R3$ 2 013 (023 + 013) 

(03 - 033) 2 (0 2 ~ 0 2 n ) 


(24) 
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In the above terms, all the denominators are positive, non-zero, and 
well behaved for physical cross sections. The possible infinite 
variance terms of the standard adjoint MORSE have been eliminated. 

At this point the choice of no weight change on in-group scattering may 
seem somewhat arbitrary. In fact, this choice can be shown to be the 
optimum. When the in-group weight changes of 1.0 in the weight and 
probability tables (Equations 22 and 23) are set to variables, new 
tables are derived, 


0 


W(x, y) 


1(023 + ^13) 
lira -033 


y 


i(<ti 3+gia) —12X2— 

Xtr 3 -CT33 yOi-<X32 


0 ' 
0 


(25) 


and 


£21 

z<7 3 


0 0 1 


P(*,V) = 


023 (* V »—* 33 ) 

Z0 3 (<7 2a +<7i a ) 


y 


0 


<ria(«g33— 033) yo 2 -0 -2 

Iff3(ffJ3 + « r 13) H07 


( 26 ) 


When these probabilities are summed and multiplied by the weights 
squared over all seven transition possibilities, the terms all have the 
form of 


x 

(X(T 3 - <733 )(ct 3 - 1 ( 733 ) 


or 


_ y _ 

(ya 2 - ( 722 ) (^2 - y<* 22 ) 


(27) 


The general features of the above functions are shown in Figure B-l. 
For the region o y Ja s < x s a-Ja SK of interest, the terms are minimized 
by a value of x - 1.0 regardless of the value of or 


1 

(<73 - <733 ) 2 


or 


1 

(<r 2 - CT 22) 2 


(28) 
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Thus, setting the in-group weight change factor to 1.0 appears to be an 
optimum in-group biasing scheme. 

Having concluded that a weight change factor of 1.0 is optimum for the 
in-group biasing scheme, equivalent sample variance terms from standard 
adjoint and in-group adjoint MORSE (Equations 15 and 24) are now 
compared. 










Standard Adjoint 


In-group Adjoint 


a\ - oiio\ s 


0\2 _ a 23 ~ a 22 

(< 7 2 -< 7 2 2) 2 {O 2 -O 22 Y 


(29) 


or 


^3% 

(Xj - 03303* 


<723+^13 _ a 3* ~ ^33 

(<T3-<7 3 3) 2 (a 3 — cr 33 ) 2 


(30) 


Analysis of the above terms indicates that the in-group adjoint variance 
is always less than the standard adjoint variance except at 0 ^ 0 * 
where the variances are equal. Also, the in-group variances are better 
behaved for physically valid cross section values, i.e., <7* j# £ <r H , o { £ 
< 7 U , and no negative cross sections. This suggests that the in-group 
biasing technique is generally superior to the standard methodology for 
MORSE adjoint analyses with no upscattering. Although in-group bias has 
not been exercised with forward MORSE, it appears from this analysis 
that in-group bias would be superior to the standard treatment in 
forward Monte Carlo as well as adjoint Monte Carlo. 


IN-GROUP BIASING CODE MODIFICATIONS FOR MORSE 


MORSE is easily modified to incorporate in-group energy bias. 

Scattering in MORSE is handled in subroutine COLISN using data in the 
form of the non-absorption factor PNAB, and the normalized scattering 
probabilities Pjj which give the probability of scattering to group j 
provided that a scattering has occurred in group i. The original coding 
is very simple in that the particle weight WATE is multiplied by PNABj, 
where i is the group coming into the collision, and then a random number 
is compared with the probabilities P {j to select the outgoing group. 

This sampling scheme is easily modified to use in-group scattering. 
Define a bias factor F as follows: 
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i = j = 1 F = 1.0 

i = j # 1 F = PN AB X 

. , . „ 1 - P lt PNAB t 

F = i - f„ 


The same sampling coding is used except that the random number is 
compared to F•P 4 j instead of simply P,j as before. After the outgoing 
group has been sampled, the weight is corrected by 


WATE - WATE ■ PNAB/F 


the above modifications have been implemented in HASH with a switch 
which permits in-group biasing to be used on option. The implementation 
correctly treats in-group biasing with or without E biasing, and 
includes logic for splitting whenever WATE exceeds WTMAX. Splitting in 
MORSE is normally performed in subroutine TESTW when a particle's weight 
is above an importance region- and energy-dependent maximum weight. The 
particle's weight is split into halves and an identical particle is 
written to the secondary bank. When the weight increase occurs at 
upscatter, the excessive weight is not identified until entering 
subroutine TESTW. Thus, all the splitting secondaries will have the 
same energy group and the same direction cosines. They will be 
essentially the same particle. This has been significantly improved by 
playing the splitting game in subroutine COLISN and actually resampling 
the upscatter distribution for each splitting secondary particle. In 
this manner each secondary is independent of the others so that this 
important probability transition is much more completely represented. 


DEMONSTRATION CALCULATIONS 


A number of demonstration calculations have been performed to compare 
VCS or MORSE results using in-group energy bias with results using the 
standard methodology. Reference 6 describes some results obtained by 
Siegfried Stuker of Wehrwissenschaftliche Dienststelle der Bundeswehr 
fur ABC-Schutz (WWD), who tested the treatment in a series of 10 cm iron 
sphere calculations. Stuker determined that in-group biasing made a 
significant improvement when it was applied to energy groups with PNAB 
greater than 2.0®. He also discovered further improvement when in-group 
biasing was used for all energy groups including groups with PNAB less 
than one. 
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In addition to the calculations performed by Stuker, SAIC has performed 
calculations on several different test geometries including an iron 
sphere, a cubical box, and a steel shell resembling a van-like vehicle. 
These results are discussed in Reference 1. The results for the iron 
sphere were calculated in a previous effort and are taken from Reference 

6. The results for the van-like vehicle have been described in 
Reference 5. 
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THE GIFT5 GEOMETRY PACKAGE 


BACKGROUND 


One of the major objectives of earlier efforts in the development of the 
Vehicle Code System (VCS) 1 * 2 was to create a version of VCS which could 
treat vehicle models developed by the Ballistic Research Laboratory 
(BRL). BRL, a major user of VCS, has developed detailed combinatorial 
geometry models of a number of armored vehicles. In order to facilitate 
the vehicle modeling effort, which often takes a significant fraction of 
a person year per vehicle, BRL has developed a number of hardware and 
software tools and has extended the combinatorial geometry models of 
their codes (other than VCS) to treat a number of new solid "body" 
types. The result is that BRL has a number of vehicle models which 
could not be analyzed by VCS unless modified, at considerable time and 
dollar costs, for use by VCS. 

In 1976-1977 BRL removed some of the geometry incompatibilities by 
installing the geometry package from the BRL GIFT graphics code 3 * 4 into 
the VCS MORSE code. BRL named the result "MIFT" for MORSE with GIFT 5 . 

A review of the MIFT, VCS, GIFT, and GIFT5 codes was performed by 
Science Applications International Corporation (SAIC) to evaluate and 
compare the geometry models and to determine the best way to upgrade the 
geometry treatment in VCS. The GIFT5 geometry treatment was found to be 
superior to the VCS combinatorial geometry and older GIFT treatment in 
several ways, including the number of solid "body" types, diagnostics 
and checks of input data, and a tracking method which could correctly 
treat overlapping or undefined regions in the geometry. Drawbacks 
relative to the older VCS combinatorial geometry logic were a slightly 
larger computer run time for similar problems and increased size and 
complexity of the resulting VCS code. The GIFT5 geometry package was 
first implemented in the MIFT version of the VCS MORSE code and called 
MIFT2 6 . The GIFTS geometry package has since been implemented in the 
current MASH version of the MORSE code. The bulk of this appendix was 
extracted from the GIFT document 3 to give some background information on 
the GIFT5 geometry package and has been included in this manual for 
completeness. 


'Lawrence W. Bain, Jr. and Mathew J. Reisinger, "The GIFT Code User 
Manual; Volume I. Introduction and Input Requirements," BRL 1802, 
Ballistic Research Laboratory, (July 1975). 


C-2 





INTRODUCTION 


GIFT5 geometry is similar to the older MORSE combinatorial geometry in 
that specified geometric shapes (spheres, cylinders, parallelepipeds, 
etc.) may be combined to describe complex geometry configurations. As 
with MORSE combinatorial geometry, a GIFTS geometry file is comprised 
largely of a "body" or "solids" table followed by a "zones" or "region' 
table in which the bodies are combined by (+), (-), or (OR) operators. 
In GIFT5 geometry, however, "bodies" (MORSE terminology) are called 
"solids" and "zones" (MORSE terminology) are called "regions". In the 
GIFT5 graphics code there is no equivalent to the "regions" as used in 
MORSE. In MASH, where the term "region" could have a double meaning, 
the MORSE equivalent of "region" is called "importance region" to 
minimize any confusion. In this appendix the GIFT5 terminology, i.e., 
solids and regions, equivalent to bodies and zones in MORSE, will be 
used. 


TARGET DESCRIPTION DATA 


Target description data defines or models the three-dimensional shape 
and space of a simple or complex physical structure - the target. The 
GIFT5 geometry package uses a "combinatorial geometry" or "COM-GEOM" 
target description technique. This technique defines the shape and 
space of the components of the target as a single geometric "solid" (a 
box, a sphere, a cylinder, etc.), or the "combination" of several 
geometric solids. The parameters which define the spatial locations of 
the geometric solids used to model the components of the target are 
recorded in the "Solid Table." Each component (region) of the target is 
defined as a single solid or a "combination" of solids in the "Region 
Table." 

The Solid and the Region Tables, and the other input data required to 
create the target description data for the GIFTS geometry package are 
defined in the following sections of this appendix. 


PRELIMINARY STEPS 


The first step to model a target by any three-dimensional target 
description technique is to obtain engineering drawings, reports, or any 
other data which exhibit the physical dimensions of the target. The 
next step is to define a reference point on the target: the origin 
point (0) of an X,Y,Z right-handed coordinate system. For example, for 
tanks, the intersection of the turret datum line and the center lines of 
the turret is usually selected as the origin point. The parameters 
within the target description data may be recorded in inches or 
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centimeters or any other unit of measure. For example, the X.Y,Z 
coordinate values for a point "P" can be given as (X - 1.4, Y * 1.0, Z = 
-1.0) inches or (X - 3.5, Y « 2.5, Z - -2.5) centimeters from the origin 
point (X,Y,Z - 0). Every parameter recorded in the target description 
data must be measured in the same unit of measure. 


SOLIDS 


Table C-l lists the twenty geometric solids used by the GIFT5 geometry 
package. The letters under the "Symbol", column are the alphanumeric 
designation used in this report and on the input cards for the solid. 

The "Figure" column lists the figure(s) where the input data for the 
solid is described. 

Each solid in a target description is identified by a unique number, 1, 
2, 3, etc. This permits the space of any solid to be distinguished from 
the space of any other solid. The parameters required to define the 
twenty solids are different. The parameters can, however, be classified 
as being either a "vertex point,” a "vector," or a "scalar." 

A vertex point is a point defined by its X, Y and Z measurements 
(coordinate values) from the target reference or origin (0) point. For 
each of the twenty types of solids, at least one vertex point is used to 
locate the position of the solid in the referenced X,Y,Z space. For 
example, "V" is the vertex point for a box, while the centerpoint "C" is 
the vertex point for the sphere solid. Within this report, the dash (-) 
mark over a letter (V, C, H, etc.) will be used to indicate an X, Y and 
Z measurement.) 

Certain solids require vector parameters to define the three-dimensional 
shape and space that they occupy. The BOX requires three vectors, H, W, 
D, which respectively represent the height, width, and depth of the BOX. 
Vectors also have an X, Y and Z measurement; however, the measurements 
of vectors are taken from the vertex point of the solid rather than the 
target reference or origin point. The X,Y,Z measurements of H, W and D 
vectors are taken from V, not the origin (0) point. 

Some solids require scalar parameters to define their shape and space. 
Scalars are single numeric values. An example of a scalar is the radius 
parameter used to define the SPH solid. 

Figures C-l to C-20 illustrate and define the parameters and card input 
formats for each of the 20 solid types used by the GIFT5 geometry 
package. The comments on these figures must be given careful attention 
because the difference between certain solids is slight. 
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Table C-l. List of 20 Geometric Solids 
used by the GIFTS Geometry Package. 



Solid Name 

Symbol 

Figure 

1 . 

Arbitrary Convex Polyhedron, 4 vertex 

ARB4 

C-l 

2. 

Arbitrary Convex Polyhedron, 5 vertex 

ARB5 

C-2 

3. 

Arbitrary Convex Polyhedron, 6 vertex 

ARB6 

C-3 

4. 

Arbitrary Convex Polyhedron, 7 vertex 

ARB7 

C-4 

5. 

Arbitrary Convex Polyhedron, 8 vertex 

ARB8 

C-5 

6. 

Arbitrary Convex Polyhedron, N vertex 

ARBN 

C-6 

7. 

Triangular Surfaced Polyhedrons 

ARS 

C-7 

8. 

Box 

BOX 

C-8 

9. 

Ellipsoid of Revolution 

ELL 

C-9 

10. 

Ellipsoid with Elliptical Cross Section 

ELL G 

C-10 

11. 

Half Space 

HAF 

C-ll 

12. 

Right Angle Wedge 

RAW 

C-12 

13. 

Right Circular Cylinder 

RCC 

C-13 

14. 

Right Elliptical Cylinder 

REC 

C-14 

15. 

Rectangular Parallelepiped 

RPP 

C-15 

16. 

Sphere 

SPH 

C-16 

17. 

Truncated Elliptical Cone 

TEC 

C -17 

18. 

Truncated General Cone 

TGC 

C-18 

19. 

Torus 

TOR 

C -19 

20. 

Truncated Right Angle Cone 

TRC 

C-20 
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ORNL-OWG 90M-11883 



SPECIFY: The X, Y, Z coordinates of the four vertices of the Polyhedron. 
Vertices are the ordinal numbers 1 to 4 on the figure. 

NOTES: This form of the ARB has four ("4" in card column 9) vertices 

and four faces each defined by three vertices. The GIFT code 
generates the four faces as: 123, 412, 423, 431. 

Card Columns 71-80 may be used for comments. 

Card Format: (15, A3, Al, IX, 6F10.0, A10) 


CARD COLUMNS 


1-5 

6-8 

9 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of Cards 

Solid 

Number 

ARB 

4 

XI 

Y1 

Z1 

X2 

Y2 

Z2 

1 of 2 

Solid 

Number 



X3 

Y3 

Z3 

X4 

Y4 

Z4 

2 of 2 


Figure C-l. Four-faced, four vertices, convex polyhedron (ARB4) input. 
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SPECIFY: The X, Y, Z coordinates of the five vertices of the polyhedron. 
Vertices are the ordinal numbers 1 to 5 on the figure. 

NOTES: This form of the ARB has five ("5" in card column 9) vertices 

and five faces - one defined by four vertices, four faces 
defined by three vertices. The GIFT code generates the 
five faces as: 1234, 512, 523, 534, 541 
Card Columns 71-80 may be used for comments. 

Card Format: (15, A3, Al, IX, 6F10.0, A10) 


CARD COLUMNS 


1-5 

6-8 

9 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of Cards 

Solid 

Number 

ARB 

5 

XI 

Y1 

Z1 

X2 

Y2 

11 

1 of 3 

Solid 

Number 



X3 

Y3 

Z3 

X4 

Y4 

Z4 

2 of 3 

Solid 

Number 



X5 

Y5 

Z5 




3 of 3 


Figure C-2. Five-faced, five vertices, convex polyhedron (ARB5) input. 
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SPECIFY: The X, Y, Z coordinates of the six vertices of the polyhedron. 
Vertices are the ordinal numbers 1 to 6 on the figure. 

NOTES: This form of the ARB has six ("6" in card column 9) vertices 

and five faces - three faces are defined by four vertices, 
two faces defined by three vertices. The GIFT code generates 
the six faces as: 1234, 2365, 1564, 512, 634. 

Card Columns 71-80 may be used for comments. 

Card Format: (15, A3, Al, IX, 6F10.0, A10) 


CARD COLUMNS 


1-5 

6-8 

9 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of Cards 

Solid 

Number 

ARB 

6 

XI 

Y1 

Z1 

X2 

Y2 

Z2 

1 of 3 

Solid 

Number 



X3 

Y3 

Z3 

X4 

Y4 

Z4 

2 of 3 

Solid 

Number 


J 

|*5 

Y5 

Z5 

X6 

Y6 

16 

3 of 3 


Figure C-3. Five-faced, six vertices, convex polyhedron (ARB6) input. 
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SPECIFY: The X, Y, Z coordinates of the seven vertices of the polyhedron. 
Vertices are the ordinal number 1 to 7 on the figure. 

NOTES: This form of the ARB has seven ("7" in card column 9) vertices 

and six faces - four faces defined by four vertices, two faces 
defined by three vertices (triangular faces). The GIFT code 
generates the six faces as: 1234, 567, 145, 2376, 1265, 4375. 
Card Columns 71-80 may be used for comments. 

Card Format: (15, A3, Al, IX, 6F10.0, A10) 


CARD COLUMNS 


1-5 

6-8 

r 

9 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of Cards 

Solid 

Number 

ARB 

7 

XI 

Y1 

Z1 

X2 

Y2 

Z2 

1 of 4 

Solid 

Number 



X3 

Y3 

Z3 

X4 

Y4 

Z4 

2 of 4 

Solid 

Number 



X5 

Y5 

Z5 

X6 

Y6 

Z6 

3 of 4 

Solid 

Number 



X7 

Y7 

17 




4 of 4 


Figure C-4. Six-faced, seven vertices, convex polyhedron (ARB7) input. 
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SPECIFY: The X, Y, Z coordinates of the eight vertices of the Polyhedron. 
Vertices are the ordinal numbers 1 to 8 on the figure. 

NOTES: This form of the ARB has eight ("8" in card column 9) vertices 

and six faces each defined by four vertices. 

The GIFT code generates the six faces as: 

1234, 5678, 1584, 2376, 1265, and 4378. 

Card Columns 71-80 may be used for comments. 

Card Format: (15, A3, Al, IX, 6F10.0, A10) 


CARD COLUMNS 


1-5 

6-8 

9 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of Cards 

Solid 

Number 

ARB 

8 

XI 

Y1 

Z1 

X2 

Y2 

Z2 

1 of 4 

Solid 

Number 



X3 

Y3 

Z3 

X4 

Y4 

Z4 

2 of 4 

Solid 

Number 



X5 

Y5 

Z5 

X6 

Y6 

Z6 

3 of 4 

Solid 

Number 



X7 

Y7 

17 

X8 

Y8 

Z8 

4 of 4 


Figure C-5. Six-faces, eight vertices, convex polyhedron (ARB8) input. 
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SPECIFY: Bounding planes by any or all of three ways: points, 

equations, or point and vector normal to the plane. 

DEFINITIONS: NPT - number of points 

NPE » number of faces defined by 3 points 
NEQ - number of faces defined by equation 
NAE = number of faces defined by point and azimuth 
and elevation of vector normal to plane 
A,B,C,D * plane equation coefficients, AX + BY + CZ * D 
AZ - azimuthal angle, degrees 
EL - elevation angle, degrees 
PN ■ point number 

NOTES: The defined faces must form a totally enclosed region. 

This ARB has the letter "N" in column 9. 

Columns 71-80 may be used for comments. 

Card Format: (15, A3, Al, IX, 6F10.0, A10) except faces 
input on [10X,6 (14, 213), A10] format. 


CARD COLUMNS 


1-5 

6-8 

9 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of Cards 

Solid 

Number 

ARB 

N 

NPT 

NPE 

NEQ 

NAE 



1 of N 

Solid 

Number 



XI 

Y1 

Z1 

X2 

Y2 

etc. 

2 of N 

Sol id 
Number 



FACE1, FACE2, FACE3, etc. on 

10X, 6(14, 213) format 

as needed 
for NPE>0 

Sol id 
Number 



Al 

B1 

Cl 

D1 

(blank) 

(blank) 

as needed 
for NEQ>0 

Solid 

Number 



AZ1 

ELI 

PN1 

AZ2 

EL2 

PN2 

as needed 
for NAE>0 


Figure C-6. N-faces, convex polyhedron (ARBN) input. 
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SPECIFY: The X, Y, Z coordinate values of the vertices of the concave 
or convex polyhedron. Order and record of the vertices by 
the number of curves (M) and number of points per curve (N) 
system. 

NOTES: The purpose of this solid type is to permit the easy conversion 

and use of target description data from other BRL codes. BRL 
recommends that polyhedrons be modeled as a "combination" of 
ARB's 4, 5, 6, 7, and 8's. The sample polyhedron has 10 unique 
vertices (1, 2, 3 ... 10); however, M=4, N=5, and 4x5 or 20 

vertices are required and recorded to generate the triangular 
faces of this polyhedron. The order is illustrated by the M,N 
matrix above in which the vertices of the generated triangle 
faces are connected by dashes (- -). Each new curve begins on 
a new card: When N is odd, the card containing the last 
recorded point of a curve is followed by blanks in card 
columns 41-70. 


Figure C-7. Triangular surfaced (ARS) polyhedron input. 
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Solid 1+(N+1) of n 

Number X(1,N) Y(1,N) Z(1,N) 2 



Figure C-7. Triangular surfaces (ARS) polyhedron input (Continued). 
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SPECIFY: The vertex (V) at one of the corners by giving the X, Y, Z 
coordinates. The X, Y, Z components of the three mutually 
perpendicular vectors (H, W, D) from the vertex point V, 
representing the height, width, and depth of the box. 

NOTES: The box may be arbitrarily oriented while the RPP must be 

parallel to the reference coordinate axes. The vectors H, W, 
and D may be interchanged on the card input. 

Card Columns 71-80 may be used for comments. 

Card Format: (15, A3, 2X, 6F10.0, A10) 


CARD COLUMNS 


1-5 

6-8 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of Cards 

Solid 

Number 

BOX 

Vx 

vy 

Vz 

Hx 

Hy 

Hz 

1 of 2 

Solid 

Number 







Dz 

2 of 2 


Figure C-8. Box (BOX) input. 
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SPECIFY: The X, Y, Z coordinates of the vertex V at the center of the 
major axis, the vector A defining the semi-major axis, and 
the scalar R denoting the radius of the circular section 
taken at the center point V. 

NOTES: Card Columns 71-80 may be used for comments. 

Card Format: (15, A3, 2X, 6FI0.0, A10) 


CARD COLUMNS 


1-5 

6-8 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of Cards 

Solid 

Number 

ELL 

Vx 

vy 

Vz 

Ax 

Ay 

Az 

1 of 2 

Solid 

Number 


R 






2 of 2 


Figure C-9. Ellipsoid of revolution (ELL) input. 
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SPECIFY: The X, Y, Z coordinates of the vertex V at the center of the 
major axis, the vector A defining the semi-major axis, and 
vectors B and C defining semi-minor axes. 

NOTES: The letter "G" in card column "9" denotes the second ELL 

input option. Vectors A, B, and C must be perpendicular. 
Card Columns 71-80 may be used for comments. 

Card Format: (15, A3, Al, IX, 6F10.0, A10) 


CARD COLUMNS 


1-5 

6-8 

9 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of Cards 

Solid 

Number 

ELL 

G 

Vx 

Vy 

Vz 

Ax 

Ay 

Az 

1 of 2 

Solid 

Number 



Bx 

By 

Bz 

Cx 

cy 

Cz 

2 of 2 


Figure C-10. Input for ellipsoid with elliptical cross section (ELL G). 
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SPECIFY: Coefficients A, B, C and D of plane defined by the equation 
AX + BY + CZ - D. 

NOTES: A, B, C can be viewed as vectors which point away from the 

desired space. Example: for A=B=D=0 and C=l, plane is Z=0. 

C-l points away from desired space; hence desired space is Z<0. 
Card Columns 71-80 may be used for comments. 

Card Format: (15, A3, 2X, 6F10.0, A10) 


CARD COLUMNS 


1-5 

6-8 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of Cards 

Solid 

Number 

HAF 

A 

B 

C 

D 



1 of 1 


Figure C-ll. Half space (HAF) input. 
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SPECIFY: The vertex (V) at one of the right-angled corners by giving 
the X, Y, and Z coordinate. The components of the three 
mutually perpendicular vectors (H, W, D), of which two (H, W) 
are the legs of the right triangle formed while the third (D) 
is the depth of the wedge. 

NOTES: The two legs H, W may be interchanged on card input, 

but the D vector must remain in position shown. 

Card Columns 71-80 may be used for comment:. 

Card Format: (15, A3, 2X, 6F10.0, A10) 


CARD COLUMNS 


1-5 

6-8 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of Cards 

Solid 

Number 

RAW 

Vx 

Vy 

Vz 

Hx 

Hy 

Hz 

1 of 2 

Solid 

Number 


Wx 

Wy 

Wz 

Dx 

Dy 

Dz 

2 of 2 


Figure C-12. Right angle wedge (RAW) input. 
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SPECIFY: The vertex point V at the center of one base, height vector H 
and scalar R denoting the base radius. 

NOTES: Card Columns 71-80 may be used for comments. 

Card Format: (15, A3, 2X, 6F10.0, A10) 


CARD COLUMNS 


1-5 

6-8 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of Cards 

Solid 

Number 

RCC 

Vx 

vy 

Vz 

Hx 

Hy 

Hz 

1 of 2 

Solid 

Number 


R 






2 of 2 


Figure C-13. Right circular cylinder (RCC) input. 
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SPECIFY: The X, Y, Z coordinates of the center of the base ellipse V, 
height vector H, and vectors A and B in the base plane 
defining the semi-major and semi-minor axes, respectively. 

NOTES: Card Columns 71-80 may be used for comments. 

Card Format: (15, A3, 2X, 6F10.0, A10) 


CARD COLUMNS 


1-5 

6-8 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of Cards 

Solid 

Number 

REC 

Vx 

Vy 

Vz 

Hx 

Hy 

Hz 

1 of 2 

Solid 

Number 


Ax 

Ay 

Az 

Bx 

By 

Bz 

2 of 2 


Figure C-14. Right elliptical cylinder (REC) input. 
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+z 



SPECIFY: The maximum (max) and the minimum (min) values of the 
X, Y, Z coordinates which bound the parallelepiped. 

NOTES: The bounding planes must be parallel to the coordinate 

axes of the target. 

Card Columns 71-80 may-be used for comments. 

Card Format: (15, A3, 2X, 6F10.0, A10) 


CARD COLUMNS 


1-5 

6-8 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of Cards 

Solid 

Number 

RPP 

Xmin 

Ymin 

Zmin 

Xmax 

Ymax 

Zmax 

1 of 1 


Figure C-15. Rectangular parallelepiped (RPP) input. 
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SPECIFY: The center point, V, and scalar R denoting the radius. 

NOTES: Card Columns 71-80 may be used for comments. 

Card Format: (15, A3, 2X, 6F10.0, A10) 


CARD COLUMNS 


1-5 

6-8 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of Cards 

Solid 

Number 

SPH 

Vx 

vy 

Vz 

R 



1 of 1 


Figure C-16. Sphere (SPH) input. 
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SPECIFY: The coordinates of vertex V at the center of the larger 

ellipse, and the X, Y, Z components of the height vector H 
and vectors A and B describing the semi-major and semi-minor 
axes. The ratio P of the larger to smaller ellipse. 

NOTES: The height vector H does not have to be perpendicular to the 

plane containing vectors A and B. The ratio P may be 
determined by the magnitude (length) of semi-major vector A 
of the base ellipse divided by the length of semi-major axis 
of the upper ellipse: P > 1. 

Card Columns 71-80 may be used for comments. 

Card Format: (15, A3, 2X, 6F10.0, A10) 


CARD COLUMNS 


1-5 

6-8 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of Cards 

Solid 

Number 

TEC 

Vx 

vy 

Vz 

Hx 

Hy 

Hz 

1 of 3 

Solid 

Number 


Ax 

Ay 

Az 

Bx 

By 

Bz 

1 of 3 

Solid 

Number 


P 






3 of 3 


Figure C-17. Truncated elliptic cone (TEC) input. 


C - 23 








ORNL-DWG 90M-11870 



SPECIFY: The coordinates of vertex V at the center of the larger 

ellipse, and the X, Y, Z components of the height vector H 
and vectors A and B describing the semi-major and semi-minor 
axes. The ratios T(A) and T(B) of the semi-major and 
semi-minor axes for the smaller ellipse. 

NOTES: The height vector H does not have to be perpendicular to the 

plane containing vectors A and B. The semi-major and semi-minor 
axes of the smaller ellipse, TA*A and TB*B, respectively, 
must be parallel to the semi-major and semi-minor axes, 
respectively, of the larger ellipse. 

Card Columns 71-80 may be used for comments. 

Card Format: (15, A3, 2X, 6F10.0, A10) 


CARD COLUMNS 


1-5 

6-8 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of Cards 

Solid 

Number 

TGC 

Vx 

vy 

Vz 

Hx 

Hy 

Hz 

1 of 3 

Solid 

Number 


Ax 

Ay 

Az 

Bx 

By 

Bz 

1 of 3 

Solid 

Number 


TA 

TB 





3 of 3 


Figure C-18. Truncated general cone (TGC) input. 
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SPECIFY: The vertex V at the center of the torus, a normal vector N to 
the plane in which the locus of the mid-points of the circular 
cross sections lies, and the scalars Rl, the distance from the 
center V to the mid-point of the circular cross section, 
and R2, the radius of the circular cross section. 

NOTES: Card Columns 71-80 may be used for comments. 

Card Format: (15, A3, 2X, 6F10.0, A10) 


CARD COLUMNS 


1-5 

6-8 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of Cards 

Solid 

Number 

TOR 

Vx 

Vy 

Vz 

Nx 

Ny 

Nz 

1 of 2 

Solid 

Number 


Rl 

R2 





2 of 2 


Figure C-19. Torus (TOR) input. 
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SPECIFY: The vertex V at the center of the larger base, height 
vector H and scalars R1 and R2 denoting the radii of 
the larger and smaller bases, respectively. 

NOTES: Card Columns 71-80 may be used for comments. 

Card Format: (15, A3, 2X, 6F10.0, A10) 


CARD COLUMNS 


1-5 

6-8 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of Cards 

Solid 

Number 

TRC 

Vx 

vy 

Vz 

Nx 

Ny 

Nz 

1 of 2 

Solid 

Number 


R1 

R2 





2 of 2 


Figure C-20. Truncated right angle cone (TRC) input. 
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SOLID TABLE 


A Solid Table contains the input cards for every solid used to describe 
the target. Table C-2 is the Solid Table for a sample target. Twenty 
solids are used to describe the sample target. 

Every solid within a Solid Table must have a unique number. The 
numbering of the solids in the Solid Table begins with the number "1" 
and is consecutive (1, 2, 3 ...). No hierarchy exists between the 
solids; any solid type can be numbered "1, or 2, or 3,..." 


“COMBINATION" OF SOLIDS 


The three-dimensional shape and space of several solids can be 
"combined" to define a component of a target. Figure C-21 illustrates 
the concepts of "intersection," "subtraction," and "union" which are 
used to "combine" the space of several solids. 

Section A of Figure C-21 exhibits an RPP and SPH which overlap. For 
discussion, suppose that the RPP is the first solid in a Solid Table; it 
is therefore numbered "1". If the SPH is the second solid in the Solid 
Table, it is therefore numbered "2". The "intersection" (+) of the RPP 

(1) and the SPH (2) solid is represented as "1 + 2". The "1 + 2" 
symbolization may be interpreted as the space of the first (1) solid in 
the Solid Table that overlaps or "intersects" (+) the space of the 
second (2) solid in the Solid Table. The dashed (/) area in section B 
of Figure C-21 represents the space of "1 + 2", the space of the RPP (1) 
that overlaps the space of the SPH (2). 

The "Subtraction" (-) of the space of the SPH (2) from the space of the 
RPP (1) is represented by "1 - 2". The "1 - 2" symbolization may be 
interpreted as the space of the first (1) solid removing or 
"subtracting" the space of the second solid in the Solid Table. The 
dashed area in section C of the Figure C-21 represents the space of "1 - 
2" the space of the RPP removing the space of the SPH. Note that the 
space resulting from "1 + 2" and "2 + 1" (intersect relationship) would 
be the same; however, "1-2" results in a space different from "2 - 1", 
the space of the SPH removing the space of the RPP. 

The "union" (OR) of the space of the RPP (1) and the SPH (2) is 
represented by "1 OR 2". The "1 OR 2" symbolization is the space of the 
first (1) solid "and" or "union" (OR) of the space of the second solid 

(2) in the Solid Table. The dashed area in section E on Figure C-21 
represents "1 OR 2", the space of the RPP "and" the space of the SPH. 

As the intersect relationship, the union relationship of "1 OR 2" and "2 
OR 1" results in the same space. 
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Table C-2. Solid Table for the Sample Target. 


12.0 -75.0 
48.0 -75.0 
12.0 -100.0 


0.0 STEERING 
WHEEL 

33.5 CENTER 
37.0 STEERING 
12.0 FRONT 
48.0 3-2 
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To model irregular shaped components of a target may require the 
intersection, subtraction, and union of many different solids. In 
section A on Figure C-22 a third solid (numbered "3") has been added to 
the RPP and SPH configuration used in Figure C-21. The third (3) solid 
may be a BOX or another RPP. 

The dashed area in section B of Figure C-22 represents the space 
resulting from the intersection of solids 1, 2, and 3 (1 + 2 + 3). A 
process to arrive at the results of "1 + 2 + 3" is to visualize the area 
resulting from "1 + 2" (shown in Figure C-21) and then find the 
intersect (+) of the third (3) solid with the area from "1 + 2". 

The dashed area in section C of Figure C-22 represents the space 
resulting from the relationship "3 - 1", the space of the third (3) 
solid removing or subtracting the space of the first (1) solid. 

The dashed area in section D represents the space resulting from "1 + 2 
- 3". Again analyzing the final space by steps: first, visualize the 
"1 + 2" relationship, then remove or subtract the space of solid "3". 

The dashed area in section E represents the space resulting from "1 OR 2 
OR 3". 

The dashed area in section F represents the space of "1 + 2 - 3 OR 3 - 
1". Note that the space of "1 + 2 - 3 OR 3 - 1" shown in section F is 
the union of the spaces represented in sections D and C. In section F, 
the OR symbol separates the "1 + 2 - 3" portion from the "3 - 1" 
portion. The solids and relationships of the first portion (1+2-3) 
do not influence the solids and relationships of the second portion (3 - 
1 ). 


REGION TABLE 


For every component of the target which is being modeled, a region 
card(s) defines the shape and space of the component as a single solid 
or combination of several solids. On the region cards, the solids are 
referred to by their unique solid number and the combination symbols "+, 
-, OR" are used. The set of region cards which defines the components 
of the target is called the "Region Table." Figure C-23 displays the 
input format for the region card(s); a printout of the input cards 
required for a sample region (111); and a printout of the region cards 
that comprise the Region Table for the sample target. 

The regions in the Region Table, as the solids within the Solid Table, 
are numbered consecutively; the first region is numbered "1", the second 
number "2", the third numbered "3", etc. 

On Figure C-23, the sample region is numbered "111", implying that it is 
the one hundred and eleventh region in some Region Table. Two region 
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CARD COLUMNS 


Card Format: (15, r, 9(A2, 15), Al, 2A5) 

Note: The first two card columns are reserved for OR if necessary, 
while the remaining five card columns are used for (±) Solid 
Numbers. For example: card columns 14 and 15 are for OR if 
needed while columns 16-20 are used for (+) Solid Numbers. 


SAMPLE REGION INPUT FOR 1*2-3 OR 4 OR 5*6-7-8 OR 9-10*11-12 OR 13 

111 OR 1 2 -30R 40R 5 6 -7 -80R 9 111-1 

-10 11 120R 13 111-2 


REGION TABLE FOR THE SAMPLE 


-15 -16 -17 -18 


TARGET 


-9 -10 


Figure C-23. Card Input for the Region Cards and the 
Region Table for the Sample Target. 


cards are required to define our sample region "1 + 2 - 3 OR 4 OR 5 + 6 
- 7 - 8 OR 9 - 10 + 11 + 12 OR 13". Any number of region cards may be 
required to define a region; however, only the first card contains the 
region number. N«te that the region number "111" appears in card 
columns 3, 4, 5 only on the first card. 

Card columns 70-80 (comments) on the region card may include any 
comments, but including an identification of the card is recommended 
when more than one card is required to define a region. For example, 
the comments "111-1" and "111-2" in columns 70-80 on the sample region 
cards mean "111" first (1) and second (2) card, respectively. 
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When the "OR" relationship is used in the definition of a region, "OR" 
must be punched in card columns 7-8 on the first region card. Note the 
"OR" after "111" on the first region card for the sample region. The 
sample region reads: "OR 1 + 2 - 3 OR 4 ... " which is the same as "1 

+ 2 - 3 OR 4 ... "; the introductory "OR" indicates to the GIFT5 

geometry package that the "OR" relationship will be used in the 
description of the region. 

On the region cards, the "+" symbol need not be punched. Reviewing the 
region cards for region 111 and the Region Table for the sample target, 
note that no "+" symbols are used. A non-punch or blank before a solid 
number implies the intersection (+) relationship. 

There are twenty regions in the Region Table for the sample target, and 
the region numbers in the table are numbered consecutively (1 to 20). 
The last card (after region number "20" card) in the Region Table 
contains "-1" in card columns 4 and 5. The "-1 CARD", as it is called, 
is the flag or mark that indicates the end of the Region Table and must 
follow the Region Table. 


RECOMMENDED PROCEDURES FOR THE REGION TABLE 


The Solid Table for the sample target (Table C-2) contains twenty solids 
and the Region Table contains twenty regions (Figure C-23). The number 
of solids and the number of regions may be different; however, 
experience gained from modeling targets containing many solids has 
proven the usefulness of the following scheme. Note that region number 
"1" in the Region Table for the sample target begins with the solid 
number "1"; region number "2" begins with solid number "2"; region "3" 
with solid "3" ... region "20" with solid "20". Only region number 
"12" does not follow the pattern. In fact, region "12" sans any solid 
numbers is called a "dummy region" because no space is defined by the 
region. In a Region Table any number of "dummy regions" like region 
"12" may be used. A "dummy region" is a region card containing only a 
region number. Because the regions must be numbered consecutively, the 
purpose of region "12" is to maintain the pattern of region "13, 14, 15 
... 20" beginning with solid number "13, 14, 15 ... 20". When the 
region number is equal to the first solid number, it is easy to locate 
the components of the modeled target, to correct errors, and to modify 
the Solid and Region Tables. Using "dummy regions" and having the first 
solid and region number for non-dummy regions equal is recommended. 

The Region Table for the sample target does not contain any "OR" or 
union relationships. The OR relationship between solids may be used but 
its usage is not recommended. (A later section of this appendix 
presents a technique which is logically equivalent to the "OR" 
relationship). 
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REGION IDENTIFICATION TABLE 


The Region Identification Table assigns an identification (code) number 
to each region in the Region Table. Table C-3 exhibits a grouping of 
identification numbers from 1 to 998 used to identify the components of 
military vehicles - tanks, trucks, etc. Numbers from 1 to 99 are 
assigned to the regions in the Region Table which represent "personnel 
and miscellaneous interior components"; numbers from 100 to 199 are 
assigned to the regions in the Region Table which represent "armor and 
vehicle structure components";...; numbers from 900 to 998 are used to 
identify the regions in the Region Table which represent components that 
are "ammunition." 

Regions in the Region Table may also define spaces which represent air 
within and around a target or vehicle. For example, regions may define 
the air space where the crew members of a vehicle are (crew compartment 
air), the air space where the passengers are, and the air space 
surrounding the engine of the vehicle. Respectively, the identification 
numbers "02", "03" and "05" (shown in Table C-3) are assigned to these 
air spaces. 

Figure C-24 presents the card input format and a printout of the Region 
Identification Table for the sample target. On the input cards, the 
region number is followed by either a component (item) or an air space 
identification (code) number; a region either models an item or it 
models an air space. In the Region Identification Table, regions 19 and 
20 are identified as "02" air spaces, while region numbers 1 to 18 have 
item numbers. For example, Region 1 has been identified by component 
number "40", and represents the "steering wheel" as the comments on the 
region identification card indicate. The "1-2", also contained in the 
comment section of this card, is the Region Table description of region 
1 where solid 1 is a "TOR". (The verbal and region description, and the 
solid type are contained in the comment section of the region 
identification cards for the other regions.) Comments should verbally 
describe and define the component or air space that the region models. 

The user is not required to define any air spaces in the Region and 
Region Identification Tables. Air spaces are defined if the user wants 
to identify special air spaces within and around the target such as the 
crew and engine compartment air. Regions 19 and 20 of the sample target 
identify the air space (02) inside of the sample target (a car). 

Regions 19 and 20 were included to illustrate air space usage; 
otherwise, regions 19 and 20 may have been omitted from the Region and 
the Region Identification Tables. 
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Table C-3. Identification Numbers Used for Vehicles and Air Regions 
within the Vehicles in the GIFT5 Geometry Package. 


Identification 

Number 


Components of the 
Target Vehicle 


1 

TO 

99 

100 

TO 

199 

200 

TO 

299 

300 

TO 

399 

400 

TO 

499 

500 

TO 

599 

600 

TO 

699 

700 

TO 

799 

800 

TO 

899 

900 

TO 

998 

*501 



*111 



*999 




PERSONNEL AND MISCELLANEOUS INTERIOR COMPONENTS 

ARMOR AND VEHICLE STRUCTURE COMPONENTS 

FUEL STORAGE AND SUPPLY SYSTEM COMPONENTS 

MISCELLANEOUS EXTERIOR COMPONENTS 

ARMAMENT (NOT AMMO) SYSTEMS COMPONENTS 

TRACK SUSPENSION SYSTEM COMPONENTS 

WHEEL SUSPENSION SYSTEM COMPONENTS 

ENGINE, TRANSMISSION, AND THEIR POWER COMPONENTS 

ENVIRONMENT AND SAFETY COMPONENTS 

AMMUNITION 

USE FOR TRACK ONLY. GIFT5 GENERATES 502 FOR TRACK EDGE 
USE FOR DUMMY REGIONS 

NEVER USE. SPECIAL NUMBER FOR GIFT5 GEOMETRY PACKAGE 


Identification 

Number 


Components of the 
Air Regions in Vehicles 


01 AIR IN GENERAL. GIFT5 ASSIGNS "01" IN DESCRIPTION GAPS 

02 CREW COMPARTMENT AIR FOR VEHICLES 

03 PASSENGER COMPARTMENT AIR FOR VEHICLES 

05 ENGINE COMPARTMENT AIR FOR VEHICLES 

10 TO 98 MAY USE. NO SPECIAL USAGE DEFINED BY GIFT5 
*09 NEVER USE. SPECIAL NUMBER FOR GIFT5 GEOMETRY PACKAGE 


* SPECIAL USAGE IDENTIFICATION NUMBERS 
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CARO COLUMNS 


1-10 

6-10 

11-15 

16-20 

21-25 

26-30 

31-78 

Region 

Nunber 

Item Code 
Nunber 

Air Spece 
Code Nunber 

Materiel 

Code 

Percent 

Density 


Alphanuneric Description 
of the Region 


Card Format: (515, 5X, A48) 


REGION IDENTIFICATION TABLE FOR THE SAMPLE TARGET 

1 AO STEERING WHEEL 1-2 

2 41 STEERING SHAFT 2 

3 100 BOOT FRONT 3 

4 100 BOOT REAR 4 

5 101 BUBBLE 5*6*1 

6 100 BODY CENTER 6-20- 

7 651 WHEEL RIGHT FRONT 7 

8 652 WHEEL LEFT FRONT 8 

9 653 WHEEL RIGHT REAR 9 

10 654 WHEEL LEFT REAR 10 

11 701 ENGINE 11-12 

12 111 DUMMY REGION 0 

13 31 MAN-TORSO 13-15 

14 31 MAN-HEAD 14-13 


MAN-LEG 17 
NAN-LEG 18 
INSIDE AIR (BUBBLE)19 
INSIDE AIR (BODY) 20 


Figure C-24. Card Input for the Region Identification Table 
and a Region Identification Table for the Sample Target. 


SPECIAL REGION IDENTIFICATION NUMBERS 


In Table C-3 certain identification numbers are preceded by an asterisk 
(*); these identification numbers have specific meanings. Never use 
number "999" to identify a component and never use "09" to identify an 
air space. 

The number "111" is used to identify the "dummy regions" in the Region 
Table. For example, for the sample target, region 12 is a dummy region; 
thus, it is identified by the special number "111". The last special 
identification number is "501"; this number is only used to identify 
regions that model the tracks of tracked vehicles. The "501" number is 
sometimes converted by the GIFT5 geometry package into "502", which 
indicates the edge of the track. 

Users of the GIFT5 geometry package may use the identification system 
shown in Table C-3 or develop an original grouping scheme, but the usage 
of the special numbers (501, 111, 999 and 09 air) cannot change. 
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USING IDENTIFICATION NUMBERS TO "COMBINE" REGIONS 


In Figure C-24, note that regions 13 to 18 have a common identification 
number (31), while regions 3, 4 and 6 have a common identification 
number (100). Regions with a common identification number are 
"combined" as the "OR" relationship combines solids. For example, 
because regions 13 to 18 are identified by the same code number (31), 
these regions are equivalent to the following single region: "13 - 15 - 
16 - 17 - 18 OR 14 - 13 OR 15 OR 16 OR 17 OR 18". 

It is recommended that the user not use the "OR" relationship, but use 
common identification numbers to combine regions. There are several 
reasons why it is more desirable to use the same identification numbers 
for several simple regions rather than use the OR relationship to create 
one large region. The computer run-time is increased when the OR 
relationship is used. It is easier to locate the parts of a component 
when they are defined by several regions with the same identification 
number. For example, regions 13 to 18 define the different parts of the 
man or the driver of the sample vehicle. If a user wanted to place a 
helmet an the man's head, the man's head is quickly identified to be 
region "14". If regions 13 to 18 were grouped into a single region by 
using the OR relationship, it would be harder to locate the head of the 
man. A user may be required to identify the different parts of the man 
such as his head, legs, arms, and torso. The users would only have to 
assign unique identification numbers to regions 13 to 18. If the man 
was a single region using the OR relationship, the user would be 
required to identify the parts of the man and then create new regions 
and region identification cards. The problems associated with the use 
of the OR relationship expand as the complexity of the target increases; 
therefore, it is recommended that the OR relationship not be used. 


RULES FOR REGIONS 


The Region Identification Table defines each region in the Region Table 
as either a component or an air space. Rules exist for regions that 
model components or items, while different rules apply for regions that 
define air spaces. Figure C-25 provides illustrations for the rules of 
the regions. 

Section A of Figure C-25 exhibits two regions: R1 is a BOX and R2 is a 
SPH. The SPH and BOX are shown to overlap: the area of overlap 
contains dashed (/) lines. The three-dimensional SPH and BOX solids are 
represented on a two-dimensional plane; thus it is assumed that in depth 
they also overlap. If R1 is defined to be the space of the BOX, while 
R2 is the space of the SPH in a Region Table, and if R1 and R2 were 
identified in the Region Identification Table as components or items, 
then the only rule for regions that model components is violated - 
REGIONS THAT MODEL COMPONENTS CANNOT OVERLAP. In the physical world 
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components cannot overlap or share a common space; thus, R1 and R2 
cannot overlap if they model physical components. Regions that model 
components and overlap indicate errors either in the Solid Table data or 
in the Region Table data. 

If R1 is the space of the BOX while R2 is the space of the SPH, and if 
R1 and R2 are identified as items, then they must be correctly defined 
in the Solid Table to assure that they do not overlap. It may be 
impossible to measure and record the BOX, SPH, or any solid parameters 
accurately enough to assure that the solids do not overlap. If the 
overlap is small, the user can modify the model of the regions: R1 can 
be redefined to be the BOX minus (subtract or less) (-) the space of the 
SPH, removing the space of the SPH that overlaps the BOX from the model 
of the BOX; or R2 can be modified in a similar manner to remove the 
overlap space of the BOX from the SPH. Solids can overlap , but regions 
identified as components cannot. In the next section of this appendix, 
it will be explained how the user can specify the amount of overlap 
between solids to be ignored by the GIFT5 geometry package. 

Section B of Figure C-25, displays four regions: R1 is a BOX while R2, 
R3 and R4 are SPH's. The rules for regions identified in the Region 
Identification Table as air spaces are different from the rules of the 
regions identified as components. If R1 is identified in the Region 
Identification Table as an air space while R2, R3 and R4 are identified 
as components, then region R1 can be defined as the space of the BOX. 
REGIONS IDENTIFIED AS AIR SPACES CAN OVERLAP ANY REGIONS IDENTIFIED AS 
COMPONENTS. Imagine R1 as a BOX that defines the air in a rectangular 
room, while R2, R3, R4 are components within the room. The BOX or R1 
would define the space of the air in the room and R2, R3, R4, would be 
components within the air space (Rl) of the room. If Rl, R2, R3, and R4 
were all identified in the Region Identification Table as components, 
then to avoid overlap, Rl would have to be defined as the space of the 
BOX less or subtracting (-) the solids that define the space occupied by 
regions R2, R3, and R4. 

Examining the Solid Table, the Region Table and the Region 
Identification Table for the sample target, note that both regions 19 
and 20 are identified as 02 air space and the spaces defined by regions 
19 and 20 overlap each other. REGIONS IDENTIFIED AS AIR SPACES CAN 
OVERLAP REGIONS WITH THE SAME AIRSPACE IDENTIFICATION CODE NUMBER. 

REGIONS WITH AIRSPACE CODE NUMBERS CANNOT OVERLAP REGIONS WITH DIFFERENT 
AIR SPACE CODE NUMBERS. If region 19 of the sample target was 
identified in the Region Identification Table with any air space code 
number other than 02, and region 20 retained its 02 code number, then 
regions 19 and 20 could not overlap. 
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GIFT5 GEOMETRY PACKAGE MEMORY REQUIREMENTS AND REGION TOLERANCES 


The GIFT5 geometry package is not flexibly dimensioned. As such, 
changes have to be made to the main program to accommodate large target 
descriptions or different tolerance values for the target description. 
There are two specific lines within the GIFT5 geometry package that 
specify the memory size, and two specific lines that give the default 
values for region tolerances for the target description data. 

Lines "COMMON ASTER (5000)" and "NDQ-5000" specify the amount (5000) of 
words of memory storage reserved for the target description data: 

Solid, Region, Region Identification Tables, and other geometric data 
that are stored in the computer's core memory. The memory size required 
for a given target description is difficult to compute because a large 
number of factors must be considered. A crude estimate of the amount of 
memory words of storage required is 45 times the number of solids in the 
target description data. 

The "5000" memory words indicated on the printout is large enough for 
the sample target; however, the "5000" words would not be large enough 
for a target description containing hundred of solids and regions. If a 
target description has 1000 solids, then 45 times the number of solids 
(1000), or 45,000 words, is a crude estimate of memory requirements. To 
run the 1000 solid target description, the user must change the "COMMON 
ASTER (5000)" line to "COMMON ASTER (45000)" and the "NDQ=5000" line to 
"ND-45000". If 45,000 words i: insufficient, then one of the following 
statements will be outputted depending upon what data was being stored 
when the memory was exceeded: 1) NO MORE ROOM FOR SOLID DATA, 2) NO 
MORE ROOM FOR REGION DATA, 3) NO ROOM FOR IDENTIFICATION TABLE, 4) NO 
ROOM FOR WORKING STORAGE. Working storage is the memory required to 
perform the calculations of the GIFT5 geometry package. If one of the 
above statements is output, then the numeric value of the "COMMON ASTER" 
and "NDQ*" lines must be enlarged to store the target description data. 

Section C of Figure C-25 illustrates two regions, R1 and R2, and a 
distance "D" between the two regions. Suppose that D is a small 
distance between R1 and R2 that occurred because the input parameters 
for the solids which define R1 and R2 could not be measured and recorded 
accurately enough. The GIFT5 geometry package allows the users to 
specify the gap distance "D" between item and air regions to be ignored 
or tolerated. TOL is the overlap tolerance, while TOLLOS is the gap 
tolerance. The value of 0.0001 is one ten-thousandth of the unit of 
measurement (inches, centimeters, etc.) used in the target description 
model. For most target descriptions, the "TOL*0.0001" and 
TOLLOS-O.OOOl" lines are replaced by "T0L=0.01" and "T0LL0S-0.01" or one 
hundredth of the unit of measure is the tolerance used. The user can 
decide and set the numeric values of TOL and TOLLOS to be used with his 
target description data. 
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REGION RPP TABLE 


An RPP solid (see Figure C-15) can be defined to enclose or contain the 
space or volume of any region. The minimum and maximum X, Y, and Z 
coordinate values (XMIN, XMAX, YMIN, YMAX, ZMIN and ZMAX) of the RPP 
solid that encloses a region may be interpreted as follows: The region 
is located between XMIN and XMAX, is between YMIN and YMAX, and is 
between ZMIN and ZMAX. Figure C-26 presents the card input format and a 
printout of the Region RPP Table for the sample target. 

The first card of the Region RPP Table for the sample target states that 
region number "1" is enclosed by an RPP with XMIN=20.0, XMAX-23.0, 
YMIN-10.0, YMAX=10.0, ZMIN-28.0, and ZMAX-46.0. Note that the sample 
table does not include a card input for region "12" because region "12" 
is a "dummy region." Region "2" modeling the steering shaft or any 
region may be omitted from the Region RPP Table. In fact, no Region RPP 
Table is required because the GIFT5 geometry package computes a set of 
enclosing RPP values (XMIN, XMAX, YMIN ... ZMAX) for any region in the 
Region Table not included in the Region RPP Table. 

The option to input enclosing RPP values for some or every region is 
provided because the GIFT5 geometry package may not compute a 
"desirable" set of RPP values. For example, an RPP with XMIN, YMIN, and 
ZMIN values of -200.0 and XMAX, YMAX, ZMAX values of 200.0 would enclose 
every region of the sample target; however, the region RPP values on 
Figure C-26 define smaller volumes or spaces and are "better fitting" 
enclosing RPP's and thus more desirable RPP values. For most regions, 
the GIFT5 geometry package computes a good enclosing RPP; however, the 
computed enclosing RPP values for a few regions can be improved. The 
smaller the volume or the better fit of the RPP that encloses a region, 
the shorter the computer run time for the GIFT5 geometry package. 


THE TITLE AND TARGET SPECIFICATION CARDS 


To complete the target description, two additional cards are required - 
the Title Card and the Target Specification Card. Figure C-27 exhibits 
the card input for these cards. 

The Title Card contains the name of the target, the date the model was 
prepared, the units of measure used in the model, and any other 
important information on the modeled target. Only the first 65 card 
columns of the Title Card are read by the GIFT5 geometry package; 
however, card columns 66 to 80 may contain additional information on the 
target. 

The Target Specification Card contains the number of solids and the 
number of regions used to model the target. 
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CARD COLUMNS 


1-10 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of Cards 

Region 

Number 

Xmin 

Ymin 

Zinin 

Xmax 

Ymax 

Zmax 

1 of 1 


Card Format: (110, 6F10.0) 



REGION 

RPP 

TABLE FOR 

THE SAMPLE 

TARGET 


1 

20.0 

23.0 

-10.0 

10.0 

28.0 

46.0 

2 

21.0 

40.0 

-6.0 

6.0 

33.0 

44.0 

3 

74.0 

101.0 

-36.0 

36.0 

12.0 

48.0 

4 

-101.0 

-74.0 

-36.0 

36.0 

12.0 

48.0 

5 

-25.5 

25.5 

-15.5 

15.5 

45.0 

63.0 

6 

-75.0 

75.0 

-36.0 

36.0 

12.0 

48.0 

7 

47.0 

72.5 

-36.0 

-28.0 

0.0 

24.0 

8 

47.0 

72.5 

28.0 

36.0 

0.0 

24.0 

9 

-72.5 

-47.0 

-36.0 

-28.0 

0.0 

24.0 

10 

-72.5 

-47.0 

28.0 

36.0 

0.0 

24.0 

11 

-70.0 

-30.0 

-20.0 

20.0 

15.0 

45.0 

13 

-5.0 

5.0 

-7.5 

7.5 

24.0 

52.0 

14 

-5.5 

5.5 

-5.5 

5.5 

52.0 

57.0 

15 

0.0 

20.0 

-10.0 

-5.5 

35.0 

52.5 

16 

0.0 

20.0 

5.0 

10.0 

35.0 

52.5 

17 

-3.5 

31.0 

-8.0 

-1.0 

12.0 

30.0 

18 

-3.5 

31.0 

1.0 

8.0 

12.0 

30.0 

19 

-24.5 

24.5 

-15.0 

15.0 

34.0 

62.0 

20 

-75.0 

75.0 

-35.0 

35.0 

13.0 

47.0 


Figure C-26. Card Input for the Region RPP Table and 
the Region RPP Table for the Sample Target. 
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TITLE CARD 
CARD COLUMNS 


1-2 

3-5 

6-65 

Target 

Units 


Alphanumeric Description of the target: 
including title, date prepared, etc. 


Card Format: (A2, 3X, A60) 


TARGET SPECIFICATION CARD 
CARD COLUMNS 


1-5 

6-10 

Number of Solids in 
the Solid Table 

Number of Regions in 
the Region Table 


Card Format: (215) 


Figure C-27. Card Input for the Title Card 
and Target Specification Card. 
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CARD ORDER FOR THE TARGET DESCRIPTION INPUT 


The order of the card input for the target description data is as 
follows. The first card is the Title card, followed by the Target 
Specification card. Next comes the Solid Table - as required by the 
target description. Be sure the number of solids on the Target 
Specification card match the number of solids in the Solid Table. Next 
comes the Region Table - as required by the target description. Again, 
make sure the number of regions on the Target Specification card match 
the number of regions in the Region Table. The Region Table is followed 
by the Region RPP Table. This Table is not required and usually not 
input. Finally, the Region RPP Table (or Region Table if the Region RPP 
Table is omitted) is followed by the Region Identification Table. Note 
that the Region Table is followed by the "-1 Card" while a blank card 
follows both the Region RPP and the Region Identification Tables. If no 
Region RPP cards are used, the blank card indicating the end of the 
Region RPP Table will follow the "-1 Card". 
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MASH 1.0 CODE SYSTEM ABSTRACT 


1. NAME AND TITLE 


MASH 1.0 - A Monte Carlo Adjoint Shielding Code System 


2. COMPUTER FOR WHICH PROGRAM IS DESIGNED 

MASH was originally developed on a Cray X-MP, but it has also been 
checked out on Cray Y-MP and Cray 2 computers as well as an IBM RISC 
System/6000 workstation. Since it can operate without machine-dependent 
coding or explicit subroutine library calls, it should be operable on 
other computers with sufficient memory and disk storage. 

3. NATURE OF PROBLEM SOLVED 

MASH calculates neutron and gamma-ray environments and radiation 
protection factors for armored military vehicles, structures, trenches, 
and other shielding configurations. The principal application is to 
determine the radiation shielding characteristics of armored vehicles 
from prompt radiation due to a nuclear weapon detonation. The shielding 
effectiveness can be characterized for both personnel and electronic 
equipment as a function of weapon detonation height, source/target 
ground range, and vehicle orientation and configuration. 

4. METHOD OF SOLUTION 

The discrete ordinates calculation determines the fluence on a coupling 
surface surrounding the shielding geometry due to an external 
neutron/gamma-ray source. The Monte Carlo calculation determines the 
effectiveness of the fluence at that surface in causing a response in a 
detector within the shielding geometry, i.e., the "dose importance" of 
the coupling surface fluence. A coupling code folds the fluence 
together with the dose importance, giving the desired dose response. 

The coupling code can determine the dose response as a function of the 
shielding geometry orientation relative to the source, distance from the 
source, and energy response of the detector. 

The code system includes the GRTUNCL and DORT codes for air-over-ground 
transport calculations, the MORSE code with the GIFT5 combinatorial 
geometry package for adjoint shielding calculations, and several 
peripheral codes that perform the required data preparations, 
transformations, and coupling functions. MASH is the successor to the 
Vehicle Code System (VCS) initially developed at Oak Ridge National 
Laboratory (ORNL). 
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5. RESTRICTIONS OR LIMITATIONS 


MASH is a modular code system made up of several codes, each with their 
own set of restrictions and limitations. Most of the modules utilize 
dynamic dimensioning, however, MORSE and DRC use a large container array 
in Blank Common to accommodate this. Typically, machine size and disk 
storage space will provide the overall limit. 

6. TYPICAL RUNNING TIME 

Since a typical MASH problem involves running a sequence of codes, 
quantifying total running time is difficult. The running time varies 
depending on the complexity of the problem. The two modules in MASH 
requiring the bulk of the running time are DORT and MORSE. Typical DORT 
run times for a 400 meter by 800 meter air-over-ground calculation with 
240 angles and 69 energy groups is approximately 3.5 hours CPU on a 
Cray. A typical adjoint MORSE analysis of a vehicle with approximately 
300 bodies and 300 regions requires approximately 2 hours of Cray time 
to obtain adequate statistics on the integral results. 

7. RELATED AND AUXILIARY PROGRAMS 

MASH is a modular code system made up of a collection of programs. 

These codes include: 


G1P Cross-section input preparation 

GRTUNCL Analytic first collision source code 

DORT Two dimensional discrete ordinates transport c.de 

VISTA Vehicle input source transformation and assembly 

code 

MORSE A general purpose Monte Carlo multigroup neutron 

and gamma-ray transport code system 

GIFT A combinatorial geometry code system 

DRC A detector response code 


8. STATUS 

MASH Version 1.0 available on Cray CTSS - January 1992 

Successful solution of several test problems on the IBM RISC System/6000 
workstation was performed by 0RNL in November-December 1991. This 
version will be released at a future date once testing is complete. 
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10. COMPUTER HARDWARE REQUIREMENTS 

MASH is a modular code system made up of several codes, each with their 
own set of computer hardware requirements. All of the modules are 
designed to be applicable to most full-scale computers that support 
direct (random) access disk storage or the equivalent. Machine- 
dependent features such as calls to system-dependent subroutines are 
restricted to interchangeable interface packages. The code originators 
maintain a configuration for the Cray computer only. 

11. COMPUTER SOFTWARE REQUIREMENTS 

MASH is a modular code system made up of several codes, each with their 
own set of computer software requirements. The code system can be 
operated with 100% FORTRAN language on Cray computers. All of the 
modules are designed to use the Cray CFT 1.14 and CFT77 Version 3.0 
compilers currently in use, but any FORTRAN 77 compiler should suffice. 
External data storage must be provided for up to 9 scratch files, of 
which 5 must be direct (random) access. User-supplied input and output 
data files must be supplied on sequential-access devices, i.e., tapes or 
the equivalent. Library calls are used for job timing, etc., but they 
can be deleted. 

12. OPERATING SYSTEM 

MASH currently only operates under the Cray CTSS operating system using 
the standard CFTLIB and FORTLIB libraries. Since the code system is all 
fortran, operation under the UNICOS operating system should be possible 
with little conversion effort. 
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USER NOTES 


INTRODUCTION 


In order to assess the quality of the computational shielding efforts at 
ORNL, it is first necessary to explore the philosophies used by ORNL to 
solve problems of the class under consideration. The solution of the 
air-over-ground problem using the discrete ordinates method requires 
expert and experienced code users. The same can be said for the 
solution of the adjoint Monte Carlo formulation for the dose components 
leaving a complicated shield geometry. 

In this appendix, a series of questions and answers are given in regards 
to the application of the MASH code system to a particular problem. For 
illustrative purposes only, the problem alluded to in the discussion is 
the sample problem included in this manual. When references to the 
attached input listings are noted in the discussion, the reader should 
consult that section of this manual to see the example. 

The questions come from a novice user of the MASH code system with a 
background in Nuclear Engineering and a basic understanding of the 
physics and underlying principles of the methodology. The responses to 
the questions are those of the editor of this manual only . They are not 
meant to represent the philosophy of ORNL as a whole. They are simply 
based on his experience in using the MASH code system. 

The purpose of the following questions is to qualify the "rules of 
thumb" being followed at ORNL, and to try to stimulate critical thought 
along the lines of discovering flaws or weaknesses in any part of the 
methodology being followed. 


QUESTIONS AND ANSWERS ON AIR-OVER-GROUND ENVIRONMENT CALCULATIONS WITH 
GRTUNCL/DORT 


1. Q: What library of cross sections is currently being used? What 
weighting function was chosen for preparing this library? Why was it 
chosen? Do you have any comments or concerns about the quality of the 
library? Do you suspect any particular data to be weak? 

A: The library currently being utilized in the MASH analysis is 
the reference DNA DABL69 69 group (46n/237) cross-section library. This 
library has three weighting functions, only one of which was used for 
all materials. The standard weighting function is a smoothly varying 
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function consisting of a 300 K Maxwellian, a 1.4 MeV fission spectrum, 
and a 14.07 MeV fusion peak spectrum overlaid on a 1/E slowing-down 
spectrum. This is the weighting function I use for all my analysis. A 
fission source through infinite air spectrum was used to collapse 
additional sets of hydrogen, oxygen, and nitrogen data, and inverse of 
energy times the total cross section of type-304 stainless steel 
spectrum, 1 /(ESt), was used to collapse the major constituents of steel 
for use in deep penetration problems involving ferrous materials. Since 
the cross sections collapsed using the infinite air spectrum were 
extracted at a distance of 2000 meters, I did not use them for the APRF 
experiments being performed at 170 and 400 meters. Should I end up 
doing calculations at distances approaching 2000 meters, I would use 
these cross sections to mix my air material. Likewise, for most of the 
armored vehicle analysis (to date), the armor has not been sufficiently 
thick enough to consider the problem a "deep penetration" problem. 
Therefore, I use the standard weighted materials for my steel 
components. Additional information on the details of the library can be 
obtained from: 


D. T. Ingersoll, R. W. Roussin, C. Y. Fu, and J. E. White, "DABL69: 
A Broad-Group Neutron/Photon Cross-Section Library for Defense 
Nuclear Applications," ORNL/TM-10568, Oak Ridge National 
Laboratory, (June 1989). 


2. Q: What is your philosophy for choosing radial mesh spaces from 
the source? How far beyond the target vehicle do you think the 
calculation should go? Have you checked this out? Do you increase the 
mesh detail in the vicinity of the target? If so, how? If not, why 
not? What is your philosophy for choosing axial mesh spaces from lower 
ground body? How high do you think the calculation should go? Have you 
checked this out? Do you have a mesh size transition between the ground 
and the air? Do you increase the mesh detail in the vicinity of the 
target? If so, how? If not, why not? Please list example data. 

A: My current philosophy for choosing radial and axial mesh 
utilizes a conservative variant of the "square-root of two" rule. In 
discrete ordinates as you know, you should not let your fluence change 
by more than a factor of two between mesh cells. Since in air 
transport, the dominant component of fluence attenuation is geometric 
attenuation (1/R 2 ), you can set your mesh by choosing an initial cell 
size for the source, and multiplying this cell by the square root of two 
(i.e., 1.414) to obtain the boundary for the next cell. I use a 
slightly conservative approach and use 1.3 as my factor. I allow the 
mesh cell size to increase until it reaches a maximum size of 20 to 30 
meters. For radial mesh, this procedure only has to be performed once 
(for a centrally located point source). For axial mesh, this procedure 
has to be performed twice (above and below the source location) for a 
point source. Furthermore, tighter mesh are used at the air/ground 
interface. I gradually increase the ground axial mesh spacing from a 
starting value of 0.5 cm until I reach a maximum size of approximately 5 
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cm. I usually extend approximately twice the distance from the source 
to the target (i.e., 400 meters beyond the 400 meter test site for a 
total distance from source of 800 meters), with a minimum distance 
beyond the target of approximately 300 meters. This distance is beyond 
the longest mean free path in air and more than sufficient. Axially, I 
usually make the dimension equal to the radial dimension. Consequently, 
for an 800 meter radial distance, I have an 800 meter axial distance. 
This will incorporate all the skyshine contribution to the dose at the 
400 meter test site. I have run cases with only a 400 meter height 
since the APRF source is at approximately 16 meters. The difference 
between using 400 and 800 meter source heights was less than 2 % due to 
the contribution from low energy gammas not accounted for in the smaller 
axial case. Likewise, additional cases using more mesh beyond the 
target showed insignificant changes relative to the currently used 400 
meter case. Near the target/experiment positions, I usually gradually 
decrease the radial mesh cell until the cell containing the target is 
only approximately 10 meters wide in the radial direction. The fluence 
does not change that significantly over the 10 meter interval (at 400 
meters) and consequently the single mesh point folding algorithm in DRC 
will not cause a significant perturbation. In the axial direction, I 
usually place the first few air intervals above the ground at 
approximately 1 meter intervals until I reach a few meters above the top 
of the vehicle or intersect the 1.3 rule coming from the source. If the 
1.3 rule does not become a factor, I will gradually increase the axial 
mesh until it blends in smoothly with that mesh generated with the 1.3 
rule. A sample 6RTUNCL and D0RT listing is attached for the analysis of 
the Two-meter box at APRF. 


3. Q: Which fluence solution option do you use, diamond-difference 
with negative fluence fix-up, or others? Why? Do you check the 
solution against any of the other options? 

A: I use the 0-weighted fluence solution in D0RT. According to W. 
A. Rhoades, this solution has shown the least sensitivity to irregular 
mesh problems and the most stability. It does not guarantee the fluence 
solution regardless of mesh, but appears to allow a little more freedom. 
This has been the only fluence solution option I have used. J. V. Pace, 
III has used zero-weighted in the past, but I do not know if he did any 
comparison studies. 


4. Q: What angular quadrature set do you use? Who prepared it? What 
philosophy was used in preparing it? 

A: The current angular quadrature set being used is a 240 angle 
set, derived from a symmetric S 8 quadrature set, by subdividing each 
angle into five angles in each of the polar directions. This still 
yields a symmetric quadrature set, except now there are more polar 
angles to reduce quadrature streaming effects (ray effects) in the 
secondary gamma ray component. I believe the originator of this 
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quadrature set is J. V. Pace and it came out of his extensive air-over¬ 
ground work on the Hiroshima-Nagasaki dose re-assessment program. 


5. Q: What is your philosophy concerning the allowable aspect ratios 
of the mesh spaces in the radial to axial directions? Do you have any 
concerns about the accuracy of the diamond-difference average when the 
aspect ratio is large? If the mesh is variable; do you have any 
concerns about cumulative truncation errors? Have you ever checked this 
problem out? Please list some of the aspect ratios used in the vicinity 
of the target. 

A: I have not really developed a philosophy concerning the aspect 
ratios of the mesh spaces in the axial and radial directions. Based on 
the rules discussed in regards to questions 2 and 3, and the use of the 
©-weighted fluence option, I look for fluence profiles which appear 
reasonable for the problem and do not violate the principals governing 
discrete ordinates calculations. I realize the large radial mesh in the 
ground will cause the fluence profile to not conform, however, this 
aspect of the problem remains to be insignificant relative to the 
fluence profile in the air. I have relied extensively on the experience 
and expertise of J. V. Pace, III, and W. A. Rhoades since they have been 
performing air-over-ground analysis for many years and have probably 
discovered and encountered most of the pitfalls associated with this 
particular type of analysis through executing many of the perturbations 
you are enquiring about now. Unfortunately, much of this expertise is 
inside their head and has not been documented. I believe my worst 
aspect ratio in the air in the vicinity of the target is ten (radial 
interval of 10 meters by an axial interval of 1 meter). 


6. Q: For purposes of coupling to MORSE, the sidewise and backwards 
directions are important to the determination of the indirect dose to 
the target. For the forward-biased quadrature set being used, is there 
sufficient detail in these other directions to adequately determine this 
dose component? Has this been checked? 

A: The current quadrature set is symmetric and therefore yields 
the same treatment of the sideways and backward directions as it does 
the forward directions. I believe there is sufficient detail to model 
these directions with the quadrature set currently being used. In an 
unrelated study, I performed a 20 group simulated box problem using a 
symmetric S,, S 4 , S 6 , S 8 , and S 10 quadrature set. The results showed 
stability of the neutron dose for all quadrature sets above (and 
including) S 6 . I did not investigate the stability of the gamma ray 
dose. 


7. Q: At present, the DORT fluence at a single radial position is 
being used for the entire coupling surface, even though the coupling 
cylinder may be up to 20 meters in diameter. Are you satisfied with the 
accuracy of this procedure? Do you expect any significant differences 
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to appear if the fluence is interpolated at its correct radial distance 
to the coupling surface? What about the current entering the top of the 
coupling surface? 

A: As presently configured, DRC assumes the DORT fluence on the 
"coupling surface" is dependent on energy and elevation only, and not on 
azimuth. Consequently, DRC only uses the fluence at a single radius in 
the DORT mesh and does not use the radii encompassing the target. This 
assumption is valid for small objects at a great distance from the 
source. Since the size of most of the targets is small relative to the 
distance from the source, it is felt this assumption is valid for this 
analysis and would produce an uncertainty within the statistical 
deviations of the calculated results. Utilizing the 10 meter radial 
mesh at the target location and a small air box surrounding the target 
produced differences less than 2% in a study on the two-meter box. If 
the target becomes significantly larger (e.g. a house cluster), you will 
have violated the "small target relative to the source distance 
assumption", and the single radial fluence will yield larger 
discrepancies. Modifying DRC to use multiple radial mesh coupling would 
be the only true way to assess the effect of the single radial mesh 
coupling approximation. 


8. Q: Do you have *>r opinion as to the value of doing a several-day 
CRAY calculation, wir much more spatial detail, to provide a benchmark 
for the normal D r c T runs? 

A: The jest way to answer many of these questions (and probably 
introduce a few more) would be to set up and execute a large air-over¬ 
ground problem with a consistent axial and radial mesh and with 
reasonaole aspect ratios approaching one. Include sufficient mesh above 
and beyond the source and target to insure all skyshine and backward 
directed fluence is accounted for, and possibly, increase the angular 
quadrature to test the current quadrature set. Re-assess a problem for 
which the current air-over-ground has been performed and compare the two 
calculations. Such a calculation could (and probably would) prove 
useful towards lending credibility to the current problem setup being 
used. 


9. Q: Do you have any concerns about the effects of non-uniform, 
partially wet and bumpy terrain? If so, do you have any suggestions of 
how to simulate this effect? Comment similarly with respect to trees 
and vegetation. 

A: Preliminary scoping calculations investigated the effects of 
the APRF topography out to the 400 meter test site, and the effects of 
ground moisture and meteorological data (temperature, pressure, and 
relative humidity) on the air environment during measurements made at 
APRF. Integral and spectral MASH results showed differences less than 
2% for the topography model analysis. Consequently, a simple topography 
model of the APRF source-to-400 meter test site was determined to be 
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sufficient for the analysis. Partial wet conditions could not easily be 
simulated in the 2-D model. The mud puddles in close proximity to the 
target cause me a little concern (e.g. the free-field phantom was 
standing right behind and within 5 meters of a huge puddle of water). 

The only way of modeling the terrain, the trees and vegetation, and to 
some extent the puddles of water would be to go to a 3-D air-over-ground 
calculation. This could be performed with either TORT, MORSE, or 
possibly MCNP. Such an analysis would require a fairly accurate mapping 
of the environmental conditions at the time a particular measurement was 
made. Furthermore, standardization of such a model would be extremely 
difficult in view of changes in between experiments, especially the mud 
puddles. A better solution would be to backfill the low area where 
standing water is a problem, and look to standardize the rest of the 
problem. 


QUESTIONS AND ANSWERS ON ADJOINT MONTE CARLO CALCULATIONS WITH MORSE 


1. Q: Where did the geometry model come from that is currently being 
used? How many bodies, etc.? Has the model been checked for missing 
regions, holes, etc.? Were any found? What geometry package was used 
to process the model? 

A: The two-meter box geometry was modeled in the MORSE component 
of the MASH code system using the GIFT geometry package. J. M. Barnes 
modeled the box by using the engineering blue prints supplied by APRF. 
The box required 49 bodies, and twenty four regions to model it 
precisely as the drawings specified. A simpler representation could 
have been modeled with less bodies and retained the same amount of 
detail. The geometry was checked by the GIFT debugging tool, converted 
to MORSECG input and checked with JUNEBUG, and analyzed with the new 
geometry package being created by T. J. Burns. Results of a preliminary 
study determined all the details of the box (i.e., lift tabs, drain 
holes, etc.) made insignificant contributions to the calculation and 
therefore were omitted in the final computational geometry model. The 
hatches were retained in the computational model for potential open 
hatch experiments performed in the future. The walls and roof of the 
box were comprised of two plates of steel each 5.08-cm thick. This 
detail was retained in the geometry model for region dependent biasing 
in the Monte Carlo analysis. 


2. Q: What is your philosophy for choosing the number of starters? 

How many were actually used? What was the number of secondaries created 
and followed? Have you checked any cases of a similar nature with 
considerably more starters? 

A: The Monte Carlo (MORSE) calculation for the detector position 
generated and tracked 1,500,000 primary source particles (1500 batches 
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of 1000 particles) sampled over the 69 energy groups. All starters were 
used, approximately one secondary particle was generated for each 
starter, and approximately one particle escaped (to be scored in DRC) 
for each starter. I do not believe any other cases were run with more 
starters than what I chose to run. My philosophy for choosing the 
number of starters depends to some extent on whether I am analyzing 
integral or spectral experimental data. For integral data, you can 
obtain a reasonable degree of convergence with much less histories than 
that required for spectral comparisons. In integral comparisons not all 
of the energy groups need to be converged; only those making a 
significant contribution to the total. For spectral comparisons, the 
majority of the energy groups should be converged (typically less than 
5%) for confidence in the calculated spectrum. I have found that you 
can obtain statistics on your integral result less than 5%, and have 
statistics on your differential results (group fluences) greater than 
10%. Care must be taken in this situation because you may analyze the 
same calculation, with the same number of starting particles, using a 
different starting random number, and obtain an entirely different 
integral result with a statistical uncertainty less than 5%. In this 
case, even though your integral result is converged to within 5%, there 
is still too much deviation in the contributions from the individual 
groups. Consequently, your integral result is undersampled even though 
the fractional standard deviation (fsd) says it is converged. One final 
point should be made about the fsd's printed in the MORSE output. You 
can converge your MORSE calculation to within 1% for both your integral 
and differential data and still not obtain the correct answer. The 
final result regardless of the level of convergence is only as good as 
the accuracy of the MASH model. 


3. Q: What philosophy do you use for source biasing? Why did you 
choose this? Please list example data. What exact geometry was used 
for the source and where was it positioned? 

A: I did not use source biasing in this calculation except for 
energy biasing discussed in question 5 below. 


4. Q: What source spectrum did you use? Why did you choose it? 

A: The source spectrum was an angle (240 angles) and energy 
dependent (69 groups, 46n and 237) source spectrum supplied by SAIC as a 
result of their recent analysis of the APRF reactor leakage. The input 
is supplied in the attached GRTUNCL input listing. Details about the 
source calculation can be obtained from: 


D. C. Kaul and S. D. Egbert, "Radiation Leakage From The Army 
Pulse Radiation Facility (APRF) Fast Reactor," SAIC-89/1423, 
Science Applications International Corporation, San Diego, 
California, (May 1989). 
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5. Q: Do you use energy biasing? If so, describe the philosophy used 
to determine which groups should be biased and by how much. Please list 
example data. 

A: An energy dependent relative importance factor is utilized over 
the 69 groups to increase the frequency of sampling the adjoint source 
particle from energy groups which have a significant effect on the dose 
response function. In this case, the response function is the free-in- 
air tissue dose response function. An example is given in the attached 
MORSE input stream. Obtaining a good source biasing function can be 
aided through the use of 1-D ANISN calculations which approximate the 3- 
D calculations as much as possible. The geometry for the source in the 
adjoint MORSE calculation is just a detector location (a point detector) 
located in the combinatorial geometry target description. The source in 
the DORT air-over-ground analysis was modeled as a small cylinder (5 cm 
in height x 5 cm in radius) positioned at R=0.0, and Z=16.143 meters. 


6. Q: Do you use region biasing? If so, what philosophy do you use 
in picking the regions and region thicknesses? How do you set the bias 
factors and splitting ratios? Why? What weight cutoffs do you use for 
Russian Roulette? Why? What kill fractions do you use, and why? 

Please give examples. 

A: The secondary particle production probability (GWLO) was set to 
1.0 for all regions and energy groups in the Monte Carlo calculations, 
and the in-group energy biasing option in MORSE was switched on. Region 
dependent and energy independent splitting and Russian Roulette 
parameters were utilized in the steel to improve the efficiency of the 
Monte Carlo calculations. This was accomplished by subdividing the 
10.16-cm-thickness of steel into two equally thick concentric regions 
and assigning each of the steel regions different splitting and Russian 
Roulette parameters which would allow a sufficient number of source 
particles (and secondary particles) to escape to obtain reasonable 
statistics. This allowed nominally one escaping particle for each 
source particle generated. The process is pretty much a trial and error 
approach. The region thicknesses to some extent were (and will be) set 
by the geometry data. You do not want to add additional regions to the 
geometry (unless the geometry is relatively simple) for the sole purpose 
of performing region dependent biasing. For complicated geometries, 
this task is impossible. You have to choose an initial kill-to-survival 
ratio (i.e. 10 to 1, 5 to 1, etc.) and then utilize the geometry data, 
source data, and energy biasing data to generate a biasing scheme. In 
MASH, the object is to obtain escaping particles in the energy groups 
which will make a significant contribution to the dose. Therefore, you 
want to set up your biasing scheme to maximize your leakages. This will 
require you to constantly change your biasing parameters to insure you 
get approximately the same number of leakages as you had starters. You 
must be careful not to over-bias the problem and create a totally unreal 
distribution. You also must be careful that you do not end up with 
approximately the same number of leaking particles as source particles, 
but all in a very few groups. The only way to set up a biasing scheme 
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for a coupled neutron and gamma ray adjoint calculation with source 
energy biasing and region dependent biasing is through trial and error 
because almost everything you do affects everything else. Furthermore, 
each calculation is sufficiently different enough to render you a novice 
each time you set up a biasing scheme. 


7. Q: What criteria do you use to judge the quality of the resulting 
calculations? What FSD's do you look at? What values are deemed 
acceptable or unacceptable, and why? What do you do if you don't like 
the results? 

A: I look at several aspects of the output to determine my 
confidence in a particular calculation. I will look at the balance 
tables printed at the end of each batch to see if they are all 
approximately the same. If they are, the calculation is fairly well 
behaved and you are not experiencing gross anomalies in the calculation 
to cause large swings in your batch results. I look at the balance 
tables (printed by group) to determine how the biasing (if used) is 
working, how the secondary particle production distribution is looking, 
and how the collisions are occurring within the different regions in the 
geometry (if there are different importance regions (relative to the 
biasing) specified. After the adjoint leakage tape has been folded with 
the forward fluence on the coupling surface, I look at the integral 
detector fsd's to determine whether the problem is converged. If the 
problem is symmetric, you can look at the effect of rotating the 
geometry through 0, 90, 180, and 270 degrees and look at the consistency 
among the four different answers you will receive. I then look at the 
individual group fsd's to see how well the group fluences are converged. 
If I have any misgivings, I may rerun the calculation and double the 
number of starters to see if the results change. If they do not, then 
the original calculation probably had an adequate number of starters. 

If there are significant differences between the two calculations, I 
begin comparing the two calculations to find out whether it was a case 
of undersampling, or if some other problems exist. If I cannot resolve 
the problem as being a "Monte Carlo" problem, I will tear down the 
entire analysis from the cross section generation on up to make sure I 
did not make some input error or keypunch error which did not manifest 
itself in the form of an error message. As I stated earlier, I believe 
you must have differential (spectral) fsd's in the 5% to 10% range for 
all the groups contributing to the integral response; even though the 
integral results may yield 5% fsd's with 20% fsd's on the differential 
results. Once the fsd's get greater than 15%, I start to have my 
suspicions about the quality of that result. Unless cost is a factor, I 
will run the number of histories required to obtain adequate convergence 
of the differential results to insure adequate convergence of the 
integral results. This by no means is an iron-clad guarantee, but it 
helps reduce a source of discrepancy. 


8. Q: Do you ha' any concerns about your current random number 
generator? 
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A: I utilize the CRAY random number generator and do not have any 
problems with this software. 


9. Q: What is your philosophy for picking the size of the coupling 
surface? Have you compared small versus large surfaces? Describe what 
surface dimensions you use. 

A: My current philosophy for picking the coupling surface is to 
make it a "glove" fit of the outside dimensions of your target geometry. 

This is primarily due to the single radius fluence coupling algorithm 

currently in use in DRC. When you use a large coupling surface, you 
will take into account the transport in the air from the radius at which 
the fluence is obtained to the edge of the coupling surface twice. This 
could yield differences greater than 5% if the coupling surface is 
large. For instance, in the two-meter box calculations, the coupling 
surface need only be slightly larger than the box itself since the 
transport through the air has already been accounted for in the forward 

DORT calculation. In my initial box calculations, I had a large 

coupling surface (approximately 20 meters on a side). DRC then folded 
fluences at 400 meters with escapes at distances between 390 meters and 
410 meters. If the source would have been fairly isotropic, the size of 
the coupling surface would not have mattered. But for the APRF forward 
directed reactor source at 400 meters, the DRC coupling with a large 
coupling surface yielded answers lower than those obtained with a small 
coupling surface. The current coupling surface is only a few 
centimeters larger than the outside dimension of the box. 


10. Q: Should a slightly different spectrum be used inside the 
vehicle? (To weight the library?) (For example, tuna-can tank DORT run 
to collapse cross-sections.) 

A: Tailoring the cross-sections to fit the particular problem is 
always a good idea in any analysis when it is feasible to do so. 

However, for target vehicle analysis utilizing adjoint Monte Carlo and 
"-D air-over-ground environments which are not truly indicative of 
reality, I am not sure the net effect would not be within the 
statistical uncertainty if not the uncertainty of the parameters 
utilized in the model. Furthermore, you will be introducing another 
complicated step into a process that is already complicated for users 
who may or may not have the background to perform the task. I believe 
the analysis should be performed for the experimental comparisons 
exactly the way it will be performed once it is used in the fields. 

Then you have a true measure of its capabilities and limitations 
relative to how it will function on a day-to-day basis. 


In summary, I must say that the only way to learn how to use MASH is to 
have a basic understanding of the underlying principals of the theory 
and then apply them to the problem. To fine tune a problem requires, to 
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some extent, a trial and error approach using small test problems. You 
constantly tweak the input parameters and look at the effect on the 
summary counters. Understanding these effects takes experience and 
involves a constant learning process. Unfortunately, the information 
gleaned from one problem may not be applicable or helpful for another 
problem, even if they are similar. Eventually, you have to cut your 
losses and proceed with your setup as it is rather than continuously 
modifying it to obtain better efficiency. 
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